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?
Bookmarks