Weisst du denn nicht, was dein eigener Code macht?
raZelle.EntireRow.SpecialCells(xlCellTypeVisible).Copy
kopiert die GANZE Zeile (EntireRow) und
kopiert die GANZE Zeile (
EntireRow) und
.Cells(loLetzte, "A").PasteSpecial .....
.Cells(loLetzte,
"A"
).PasteSpecial .....
Fügt ab Spalte A ein.