VBA Bereich kopieren

Sub WerteSpeichern()
Const cstrRange As String = "A7:A36"
Dim lngZeile As Long
Dim intSpalte As Long
Dim rngCell As Range
With Worksheets("Rohdaten")
lngZeile = .UsedRange.Row + .UsedRange.Rows.Count
intSpalte = 2
For Each rngCell In Range(cstrRange)
.Cells(lngZeile, intSpalte) = rngCell.Value
intSpalte = intSpalte + 1
Next
'Range(cstrRange).ClearContents
Worksheets("Eingabe").Activate
End With
End Sub