Range in Variable speichern und wiedergeben

Sub Import()
Dim strSourceFile As String
Dim objWB As Workbook
Dim Datum As Range
Dim Name As Range
Dim Ort As Range
Dim Klasse As Range
'Quelldatei auswählen
ChDir ThisWorkbook.Path
strsource = Application.GetOpenFilename()
'Daten aus Quelldatei in Variablen (Range) speichern
If strsource  CStr(False) Then
Set objWB = Workbooks.Open(Filename:=strsource)
With objWB
With .Sheets("Tabelle1")
Datum = .Cells(4, 2).Value
Name = .Range("i3:i14").Value
Ort = .Range("j3:j14").Value
End With
With .Sheets("Tabelle2")
Klasse = .Range("b8:b500").Value
End With
End With
End If
ActiveWorkbook.Close savechanges:=False
'Werte der Variablen in Zieldatei ausgeben
ThisWorkbook.activate
Worksheets("Tabelle1").activate
Cells(4, 2).Value = Datum
Range("t3:t14").Value = Name
Range("z3:z14").Value = Ort
Worksheets("Tabelle2").activate
Range("a8:a500").Value= Klasse
End Sub