Paste exported data, help with adjustment of vba

[2001jesper]

I guys

iam making a vba that exports a range from 1 sheet, to a specific place in another. However, cant seem to make it paste the data

Private Sub CommandButton1_Click()
Dim ActivityMap As Range
'More?
Dim Export As Workbook

Sheets("Export sheet").Select
Set ActivityMap = Range("B7:AT7")
'the range i want to be exported

Set Export = Workbooks.Open("C:\xxxxxxxxxxx.xlsm")
Worksheets("Import sheet").Select
Worksheets("Import sheet").Range("b10:AT10").Select
RowCount = Worksheets("Import sheet").Range("B10:AT10").CurrentRegion.Rows.Count
With Worksheets("Import sheet").Range("B10:AT10")
.Offset(RowCount, 0) = ActivityMap
End With
Export.Save

End Sub

Hope anyone can find my mistake

thx in advance

[AB33]

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

[2001jesper]

Thank you, did a minor modification in terms of wenn to copy, and your VBA worked like a charm! Thumbs up