Sub tabua_5()
Dim numero As Byte
numero = 1
Range("a1").Select
Do Until numero > 10
ActiveCell = 5 & "X" & numero & "="
ActiveCell.Offset(0, 1) = 5 * numero
numero = numero + 1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
