Boa tarde!!
Tente adaptar
Sub AleVBA_10990()
Dim RowNum As Long
RowNum = InputBox("Digite o número.")
Range(Cells(RowNum, 1), Cells(RowNum, 11)).Delete Shift:=xlUp
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/03/2014 12:44 pm