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