Folgendes Problem
Mittels eines Makros soll wenn ich es ausführe die Zelle A1 wenn sie nicht leer ist kopiert werden und in Spalte G in der ersten nicht leeren Zeile eingefügt werden.
Vielen Dank für eure Hilfe
Schöne Grüße
Josi
Sub Josi()
Dim laR As Long
If Range("A1").Value = "" Then Exit Sub
laR = Cells(Rows.Count, 7).End(xlUp).Row
If laR = 1 And Range("G1").Value = "" Then laR = 0
Range("G" & laR + 1).Value = Range("A1").Value
End Sub