Daten überdragen mit Variablen

Sub DatenÜbertragen()
Dim Name As String
Dim Vorname As String
Dim Straße As String
Dim Plz As String
Dim Ort As String
Dim GebDatum As Date
Dim Alter As Integer
Dim Maonatsgehalt As Currency
Dim Jahresgehalt As Currency
Dim Erfolgsbeteiligung As Currency
Dim Gesamtverdienst As Currency
Sheets("Tabelle1").Activate
'Zuweisen der Zelleninhalte an die Variablen
Name = Range("B1").Value
Vorname = Range("B2").Value
Straße = Range("B3").Value
Plz = Range("B4").Value
Ort = Range("B5").Value
GebDatum = Range("B6").Value
Monatsgehalt = Range("B7").Value
'Wechsel auf Ziel-Tabellenblatt
Sheets("Tabelle2").Select
'Einfügen Der Variablen in die Zellen
Range("B1").Value = Name
Range("B2").Value = Vorname
Range("B3").Value = Straße
Range("B4").Value = Plz
Range("B5").Value = Ort
Range("B6").Value = GebDatum
Range("B8").Value = Monatsgehalt
'Alter ausrechnen
Alter = Date - GebDatum
Range("B7").Value = _
Application.Round((Alter / 360), 0)
'Jahresgehalt errechnen
Jahresgehalt = Monatsgehalt * 12
Range("B9").Value = Jahresgehalt
'Erfolgsbeteiligung errechnen
Erfolgsbeteiligug = _
Jahresgehalt * 1.1 - Jahresgehalt
Range("B10").Value = Erfolgsbeteiligung
'Gesamtverdiens errechnen
Gesamtverdienst = _
Jahresgehalt + Erfolgsbeteiligung
Range("B11").Value = Gesamtverdienst
End Sub