Estoy realizando una tarea para la universidad y me encuentro con el siguiente ejercicio:
"Cree un macro en VBA el cual usando un ciclo For, en la última hoja del libro a partir de la celda A1 hacia la derecha, hacia abajo y en diagonal llene las celdas con los valores del 1 al 5"
A partir de esto, llegué al siguiente resultado que debería funcionar, pero cuando ejecuto la macro me dice: Error de compilación: calificador no valido. ¿Donde podría estar mi error?
Sub CicloFor()
Sheets(Sheets.Count).Select
[A1].Select
Dim x As Byte
For x = 1 To 5
ActiveCell.Value = x
ActiveCell.Offset(1, 0) = x.Select
Next x
[A1].Select
For x = 1 To 5
ActiveCell.Value = x
ActiveCell.Offset(0, 1) = x.Select
Next x
[A1].Select
For x = 1 To 5
ActiveCell.Value = x
ActiveCell.Offset(1, 1) = x.Select
Next x
End Sub