Sugiro:
Sub tabuada5x_for()
Dim parcela As Byte
For parcela = 1 To 10
Cells(parcela, 1) = 5 & "x" & parcela & " = " & 5 * parcela
Next
End Sub
Na opinião do instrutor está:
Sub Tabuada_While()
Dim num As Byte
Range(“a1”).Select
For num = 1 To 10
ActiveCell = 5 & “ x “ & num & “ = “ & 5 * num
num = num + 1
ActiveCell.Offset(1, 0).Select
Next
End Sub
É necessário retirar a linha num = num +1 pois está fazendo de 2 em 2 steps
Equivale a