Wie bekomme ich das kopieren von markierten Zeilen in Tabelle1 hin ( z.B. Nur A4, oder A6 bis A10 usw. ) die dann in einer anderen Tabelle2 ab A2 eingefügt werden und der Rest sich in der Tabelle2 nach unten verschiebt. Ich bekomme nur eine Zeile zum Kopieren und nur in der letzten lehren Zeile hin. Bin für jede Antwort, Änderung, Vereinfachung dankbar.
Private Sub CommandButton1_Click() ' Zeilen kopieren
Dim wks As Worksheet
Dim iRow As Integer
Dim Shp As Shape
Set wks = Worksheets("Tabelle1")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(ActiveCell.Row).Copy wks.Rows(iRow)
Application.CutCopyMode = False
For A = 11 To 500
If Range("A" + CStr(A)) = "" Then Exit For
Next A
Range("A" + CStr(A)).Select
Set Shp = Sheets("Umsätze Ges.").Shapes("Commandbutton1")
' Shp.Top = ActiveCell.Offset(1, 2).Top
' Sheets("Umsätze Ges.").Select
Columns("A:B").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Columns("D:E").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Columns("D:D").Select
Selection.NumberFormat = "#,##0.00"
Sheets("Umsätze Ges.").Select
' ActiveCell.Select
Range("A12").Select
End Sub