Zeilen kopieren wenn Spalte A nicht leer ist

[Safety-Tussi]

Moinsen ;)

ihr konntet mir letzte mal so gut helfen, da hab ich die Hoffnung das klappt nochmal ^^

folgendes Problem: ich hab eine Tabelle bei der ich in zeilen 3 bis 23 werte drin stehen hab, die ich gerne zur Sicherung nach unten kopieren möchte. die zeile soll aber nur kopiert werden, wenn wirklich etwas in Spalte A drin steht. im anschluss wird die liste oben gelöscht.
bisher konnte ich mit dem Recorder nur aufnehmen, dass die komplett Tabelle nach unten kopiert wird. ich bekomme das als laie nicht hin mit dem zähler und der abfrage obs leer ist.

 

Code:

   Rows("3:23").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=15
    Rows("44:44").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=-18
    Rows("3:23").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A3").Select

welches vba-genie kann mir helfen? :D
lieben dank im voraus !

[Kuwer]

Hallo,

Sub aaa()
  With Range("A3:A23").SpecialCells(xlCellTypeConstants)
    Rows(44).Resize(.Count).Insert Shift:=xlDown
    .EntireRow.Copy Range("A44")
    .Value = ""
  End With
End Sub

Gruß Uwe

[Safety-Tussi]

wow klasse herzlichen dank ;)

funzt wie geschmiert ^^