im trying to copy and paste data from one sheet to another to a table that but want it to paste it to the next blank cell and then save the document any tips would help.
sub CopyRangeFA() 'Date Worksheets("Final Use").Range("D7").Copy Worksheets("Log").Range("$D3").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False 'Time Worksheets("Final Use").Range("D9").Copy Worksheets("Log").Range("$E3").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False 'SN# Worksheets("Final Use").Range("D11").Copy Worksheets("Log").Range("$C3").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False 'Team Lead Worksheets("Final Use").Range("D13").Copy Worksheets("Log").Range("$B3").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub