Sub Macro1()
'Macro1 Macro
'
Range("F4:F19").Select
Selection.Copy
Sheets("CUSTOMER DETAIL").Select
Range("Q1").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("invoice template").Select
Application.CutCopyMode = False
Selection.ClearContents
MsgBox "DATA SAVED"
End Sub