Comando limpar conteúdo VBA

[luciano rodrigues rodrigues]

Preciso de uma SUB que limpe o conteúdo das linhas de 1003 até 1010, quando o valor da célula A1002 for 8.

[Alyson Ronnan Martins]

Boa tarde @luciano rodrigues rodrigues

Olha se consegui entender o que estava querendo:

Public Sub cLimpar()
Dim uLinha As Long
'identify the last line
uLinha = Cells(Rows.Count, "A").End(xlUp).Row

If uLinha >= 8 Then 'If it is greater than 8, delete the lines
    Rows("8:" & uLinha).Delete Shift:=xlUp
End If

End Sub