EXCELer Tudo sobre EXCEL em Português
Para apagar, na ultima linha editada, os valores das células correspondentes às colunas A, B , C , D e E, como no exemplo:
Podemos utilizar o seguinte Código:
Private Sub CommandButton1_Click()
i = 5
t = True
While t = True
i = i + 1
If Cells(i, 1).Value = "" Then t = False
Wend
Range("a" & (i – 1)).Select
Range(ActiveCell, ActiveCell.Offset(0, 4)).ClearContents
End Sub