Paste exported data, help with adjustment of vba

May be

Sheets("Export sheet").Select
'the range i want to be exported

Set Export = Workbooks.Open("C:\xxxxxxxxxxx.xlsm")
Set ActivityMap = Range("B7:AT7")
RowCount = Worksheets("Import sheet").Range("B" & Rows.Count).End(xlUp).Row + 1
ActivityMap.Copy
Worksheets("Import sheet").Range("B" & RowCount).PasteSpecial xlValues
Application.CutCopyMode = 0
Export.Save