W
Wombat
This is what I have so far. It comes up with an error 1004 message as soon as
I put the connection to the second worksheet to paste the information... I
dont understand :-(
Any help much appreciated!
Sub Wombat()
Sheets("1").Cells(3, 12).Select
x = 3
y = 24
Do Until Cells(x, 12).Value = "END"
If Cells(x, 12).Value <> "" Then
Cells(x, 12).Copy
Sheets("2").Cells(y, 1).Select
ActiveSheet.Paste
Sheets("1").Cells(3, 12).Select
x = x + 1
y = y + 1
Else
x = x + 1
End If
Loop
End Sub
I put the connection to the second worksheet to paste the information... I
dont understand :-(
Any help much appreciated!
Sub Wombat()
Sheets("1").Cells(3, 12).Select
x = 3
y = 24
Do Until Cells(x, 12).Value = "END"
If Cells(x, 12).Value <> "" Then
Cells(x, 12).Copy
Sheets("2").Cells(y, 1).Select
ActiveSheet.Paste
Sheets("1").Cells(3, 12).Select
x = x + 1
y = y + 1
Else
x = x + 1
End If
Loop
End Sub