Private Sub CommandButton1_Click()
Dim loLetzteR As Long
Dim loLetzteA As Long
Dim raBereich As Range
Application.ScreenUpdating = False
With Worksheets("RG")
loLetzteA = Worksheets("Statistik").Cells(Rows.Count, 1).End(xlUp).Row + 1
loLetzteR = .Cells(22, 1).End(xlDown).Row
Set raBereich = .Range(.Cells(22, 1), .Cells(loLetzteR, 8))
raBereich.Copy
Worksheets("Statistik").Cells(loLetzteA, 1).PasteSpecial xlPasteValuesAndNumberFormats
Worksheets("Statistik").Cells(loLetzteA, 9).Resize(raBereich.Rows.Count) = .Cells(12, 8).Text
Worksheets("Statistik").Cells(loLetzteA, 10).Resize(raBereich.Rows.Count) = .Cells(13, 8).Text
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub