I keep getting a method paste of object _Worksheet failed error on my
ActiveSheet.Paste command in the code below:

Public Sub CopyRows()
Sheets("Sheet2").Select
' Find the last row of data
FinalRow = Range("A65536").End(xlUp).Row
' Loop through each row
For x = 34 To FinalRow
' Decide if to copy based on column A
ThisValue = Range("A" & x).Value
If ThisValue 0 Then
Range("A" & x & ",B" & x).Copy

Sheets("Sheet3").Select
NextRow = Range("B65536").End(xlUp).Row + 1
Range("B" & NextRow).Select
ActiveSheet.Paste


Sheets("Sheet2").Select
End If
Next x
End Sub

Can anyone help?


--
markline
------------------------------------------------------------------------
markline's Profile: http://www.excelforum.com/member.php...o&userid=23681
View this thread: http://www.excelforum.com/showthread...hreadid=374455