Macro copia e incolla

[marino51]

non mi va a cercare l'ultima riga del foglio di lavoro es. la mia ultima riga e la 20 sulla colonna G la macro punta alla riga 23 ...

le celle della colonna selezionata, righe 21 e 22 non sono vuote
se "sporchi" una cella oltre le righe volute, fai in modo da eliminare l'intera riga, non fare il "canc" della sola cella

[biss73]

Ciao e grazie ancora per la pazienza,
ho modificato appena un po il tuo codice e funziona bene anche,
questo è quello modificato:

Sub luca_Click()
Dim UltimaRiga As Integer
UR = ActiveSheet.UsedRange.SpecialCells(xlLastCell, xlNumbers).Row ' ULTIMA RIGA PIENA
UC = ActiveSheet.UsedRange.SpecialCells(xlLastCell, xlNumbers).Column ' ULTIMA COLONNA PIENA
'For x = 1 To UR
'Sheets("Foglio6").Select
'Columns("B:B").Select
UltimaRiga = ActiveSheet.Cells.Find(What:="", _
SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row - 1
Range("A4").Select
Selection.Copy
Range("A5:A" & UR).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Next
Range("A5").Select
'Selection.Clear
End Sub

domandona:
se ora vorrei estendere il copia e incolla su tutte le colonne che dalla cella 5 sono vuote ??
grazie ancora
Saluti