Thank you for all your help. I ended up using it like this


Sub Macro1()
lastrowcola = Range("A65536").End(xlUp).Row
Range("A1:C1").Select
Selection.Copy
Cells(lastrowcola + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

It seems to be doing what I need it to. If you see anything wrong
with how I am doing it please let me know.

Thanks
Jason