Boa noite!!
Seja mais especifico..ou isso deve resolver seu problema
Sub Button1_Click()
ActiveSheet.Range("A" & ActiveSheet.Rows.Count) _
.End(xlUp).Offset(1, 0).Value = "AleVBA"
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/05/2013 6:44 pm