Bucle vb para excel

[mrocf]

Hola! HusqNiva.
Cells(13, 5) refiere a [E13] en lugar de referir a [M5] puesto que "13" es la fila" y "5" la columna".

Luego tu falla la corriges de varios modos:
Cells(5, 13).Value
Range("M5").Value
[M5].Value

Además de lo anterior, te sugiero que tengas presente otras alternativas para hallar la última celda disponible y para evitar el proceso iterativo (léase: pérdida de tiempo). Por ejemplo:

Código:

Sub Repite_Entrada_1()
Dim LastRow As Long
  LastRow = 1 + [AC65536].End(xlUp).Row
[N5:Q5].Copy Range("AC" & LastRow).Resize([M5], 1)
End Sub

Saludos, Cacho.