I am new to VBA and macros. I am trying to use a button to copy data from one sheet to another. When stepping through the code, I do not have any problems. When I use the button, it gives me the error. Any help is appreciated, thanks in advance.
Sub SendtoTracker_Click()
Dim FirstBlankCell As Range
Set FirstBlankCell = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Application.Goto Worksheets("IB-OB").Range("a2")
Range("a4:g4").Select
Selection.Copy
Sheets("Sheet3").Select
FirstBlankCell.Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
On Error GoTo 0
Set FirstBlankCell = Nothing
End Sub
Bookmarks