Kopieren von einer Tab1 => Tab2

Private Sub CopyDataD_Click()
Dim LCell As Long
Worksheets("Tab2").Range("Q524").Copy
Worksheets("Tab1").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Tab2").Range("R524:R529").Copy
With Worksheets("Tab1")
.Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
LCell = .Range("B65536").End(xlUp).Row   'letzte gef?llte Zelle in Spalte "Q"
With .Range(.Cells(LCell, 2), .Cells(LCell, 7))    'markiert den Bereich ab der letzten  _
gef?llten Zelle nach rechts
.Style = "Percent"
.NumberFormat = "0.00%"
End With
End With
Application.CutCopyMode = False
Range("A1").Select
End Sub

Gru? aus?m Pott
Udo