Tengo un viejo problema

COmo va a todo.. bueno.. trate de cambiar una formula que me dio KL en macros
y no se porque no anda... se las dejo para a ver si alguien me puede ayudar...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Variant, Dest As Variant
Dim Fila As Long, i As Integer

Application.ScreenUpdating = False
Col = Array("C", "D", "E", "F", "G", "H", _
"I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "AN")
Dest = Array("F7,F25,F44", "I7,I25,I44", "L7,L25,L44", _
"H6,H24,H43", "K9,K27", "M9,M27", "K10,K29", "M10,M28", _
"K11,K29", "M11,M29", "K12,K30", "M12,M30", "M15,M33",
"M13,M31", "M14,M32", _
"M17,M35,M45", "M16,M34")
For Fila = 13 To 42
With ThisWorkbook.Sheets(Fila - 16)
.Range("E3,E21,E40").Value = Me.Cells(47, "V").Value
.Range("E5,E23,E42").Value = Me.Cells(48, "V").Value
.Range("K10,K27").Value = Me.Cells(3, "R").Value
For i = LBound(Col) To UBound(Col)
.Range(Dest(i)).Value = Me.Cells(Fila, Col(i)).Value
Next i
End With
Next Fila
Application.ScreenUpdating = True
End Sub