Macro que copia valores a columnas y filas

Tengo una macro que copia de unos valores a filas y columna pero esta no esta copiando la columna 54 ni el contenido de las filas

Range("K38").Select

vector(0) = ActiveCell.Row
vector(1) = ActiveCell.Column

Do While ActiveCell.Value <> Empty

mes = Range("k" & vector(0)).Value
año = Range("L" & vector(0)).Value

ff = ActiveCell.Row

'----------------------------------Buscar Año------------------------------------
Range("D23").Select
For i = 1 To 54

If ActiveCell.Value = año Then
columna = ActiveCell.Column
Exit For
End If

ActiveCell.Offset(0, 1).Select
Next

'----------------------------------Buscar Mes------------------------------------

Range("A24").Select
For i = 1 To 12

If ActiveCell.Value = mes Then
fila = ActiveCell.Row
Exit For
End If

ActiveCell.Offset(1, 0).Select
Next

'-----------------------------------Pegar Informacion---------------------------
'MsgBox ("Año:" & columna)

'MsgBox ("mes:" & fila)

If Range("K8").Value = "" Then

Cells(fila, columna).Value = Range("M" & vector(0)).Value
Else
Cells(fila, columna).Value = Range("O" & vector(0)).Value

End If

vector(0) = vector(0) + 1

Loop

End Sub

Sub buscarV()

End Sub