Sheets("source").Range("H1:M2").Copy Destination:=Sheets("Export").Range("H1")
Application.CutCopyMode = False
derlin = Sheets("Export").Range("H" & Rows.Count).End(xlUp).Row
Sheets("Export").Range("H2:M2").AutoFill Destination:=Range("H2:M" & derlin)