Office: Inhalt in erste leere Zeile einfügen

Hallo zusammen,

ich habe ein Modul mit Code:

Dim Start%, LR%, TB
Set TB = Sheets("Rechnung")
Start = 22
LR = TB.Cells(Rows.Count, 4).End(xlUp).Row 'letzte Zeile der Spalte D
Range("Seitenumbruch").Copy (TB.Cells(LR + 1, 1))
TB.Cells(LR + 1, 5).FormulaLocal = "=Summe(F" & Start & ":F" & LR & ")"

Es wird dabei nach der letzten nichtleeren Zeile gesucht und in die nächste leere Zeile ein Inhalt eingefügt.
Wie soll ich Code abändern, dass die erste leere Zeile ab Startposition 22 gefunden wird. Der Inhalt soll in eine leere Zeile zwischen den ausgefüllten Zeilen eingefügt werden und nicht ganz unten.
Vielen Dank

:)

 

Hi
Teste dies mal in einer leeren Mappe.In Zelle D4 muss was drin stehen!!

Gruss

 

Hallo,
vielen Dank, hary
nach einegen Anpassungen funktioniert wunderbar

so sieht es jetzt aus:

Dim Start%, LR%, TB
Set TB = Sheets("Rechnung")
Start = 22
For LR = 22 To Cells(Rows.Count, 4).End(xlUp).Row + 1 'leere Zelle in Spalte finden
If Cells(LR, 4) = "" Then
Range("Seitenumbruch").Copy (TB.Cells(LR, 1))
Cells(LR, 5).FormulaLocal = "=Summe(F" & Start & ":F" & LR & ")"
Exit Sub
End If
Next

Gruß

 

Dumme Frage: Wofür steht "lr"? Bei mir wird die nächste freie Spalte und nicht Zeile gefunden, wenn ich dies Makro anwende.
(Ich habe noch nicht viel Erfahrung in VBA.)

 

Hallo
Habs mal umgeschrieben fuer SpalteA. lr ist nur der Variabelen Name,ich hab's mal besser geschrieben.Nimm mal dieses in eine Leere Mappe.Schreib irgendwas in die ersten Zellen in A, starte dann das Makro

gruss

 

Super Vielen Dank!

 

Hi
....auf das andere Makro. Ging um den Zaehler.
Kann so auch gemacht werden.

Gruss hary