¿En donde tengo el error en el siguiente código?

No se mucho de VBA y me he guiado de algunos otros hasta llegar hacer lo que necesito, solo que ya casi en las ultimas lineas del código me manda "Se ha producido un error "1004" en tiempo de ejecución : Error definido por la aplicación o el objeto. Ya le moví varias cosas, les cambie el nombre e incluso le meti que no se si estén de mas o sean correctas, pero nomas no le encuentro en donde esta el detalle que causa el error

Sub añadircat()
Dim FilaAtributos As Integer
Dim FilaTemplate As Integer
Dim ColumnaAtributos As Integer
Dim ColumnaTemplate As Integer
Dim marcacat As Integer
Dim SkuAtributos As Integer
Dim marcati As Integer
Dim TituloAtributos As Integer
Dim TituloTemplate As Integer
Dim UltimaLineaAtributos As Integer
Dim UltimaLineaTemplate As Integer

TituloAtributos = Sheets("Atributos").Cells(2, Cells.Columns.Count).End(xlToLeft).Column - 4
TituloTemplate = Sheets("Template").Cells(2, Cells.Columns.Count).End(xlToLeft).Column - 38
UltimaLineaAtributos = Sheets("Atributos").Range("A" & Rows.Count).End(xlUp).Row - 2
UltimaLineaTemplate = Sheets("Template").Range("AI" & Rows.Count).End(xlUp).Row - 3

'recorre las filas hoja cat
For FilaAtributos = 2 To UltimaLineaAtributos Step 1
'condiconal coincidir la fila del sku
If Sheets("Atributos").Cells(FilaAtributos, 1) <> "" Then
For FilaTemplate = 3 To UltimaLineaTemplate Step 1
If Sheets("Template").Cells(FilaTemplate, 35) = Sheets("Atributos").Cells(FilaAtributos, 1) Then
SkuAtributos = FilaTemplate
Exit For
End If
Next FilaTemplate
End If
'recorre columnas
For ColumnaAtributos = 5 To TituloAtributos Step 1
If Sheets("Atributos").Cells(FilaAtributos, ColumnaAtributos) <> "" Then
'condicional para encontrar la categoria origen
If Sheets("Atributos").Cells(FilaAtributos, ColumnaAtributos) = TituloAtributos Then
marcacat = FilaAtributos
Exit For
End If

'condiconal para coincidir categoria destino
For ColumnaTemplate = 38 To TituloTemplate Step 1
If Sheets("Template").Cells(2, ColumnaTemplate) = Sheets("Atributos").Cells(marcacat, ColumnaAtributos) Then
marcati = ColumnaTemplate
Exit For
End If
Next ColumnaTemplate
'acomodar categorias
Sheets("Template").Cells(SkuAtributos, marcati) = Sheets("Atributos").Cells(FilaAtributos, ColumnaAtributos)
End If
Next ColumnaAtributos
Next FilaAtributos

End Sub