Nachdem du die Frage nicht verstehst muss du für den Rest selbst sorgen
Sub DoIt()
Dim rngU As Range, c As Range
With ThisWorkbook.Sheets("Data")
If .Cells(1).Value = "" Then
Set c = .Cells(1)
Else
Set c = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
End If
End With
With Workbooks("Datenquelle.xlsx")
With .ActiveSheet
Set rngU = .UsedRange
Set rngU = rngU.Columns(1).Resize(, 12)
Set rngU = rngU.Offset(1).Resize(rngU.Rows.Count - 1)
rngU.Copy c
End With
End With
End Sub
|