VBA erro 1004

[Yuri Lucka]

alguém poderia me ajudar fazendo favor, pela primeira vez estou travado em um código de VBA.
Está ocorrendo o erro 1004, e já tentei de tudo mas não consigo entender o erro.

OBS( sou novo no VBA kkk então ignore se tiver muito feio esse código)


o código é grande.

Segue o código

 

Sub Puxar_fechamento()

Application.ScreenUpdating = False
Dim pasta As Object
Dim caminho_pasta As String
Dim planilha As Object
Dim nome As String

'sistema de repeticao para extrair o mes
Dim coluna As Integer

caminho_pasta = "C:\Users\ricar\Desktop\treino\"

Set pasta = CreateObject("scripting.filesystemobject").getfolder(caminho_pasta)

For Each arquivo In pasta.Files
If InStr(arquivo.Name, "Thumbs") = 0 Then

Set planilha = Workbooks.Open(caminho_pasta & arquivo.Name)

For Each mes In Workbooks(Workbooks.Count).Sheets(1).Range("B1:M1")
If mes = ThisWorkbook.Sheets(1).Range("S14") Then
coluna = mes.Column

nome = Workbooks(Workbooks.Count).Sheets(1).Range("A1").Value
conteudo = Workbooks(Workbooks.Count).Sheets(1).Range(Cells(2, coluna), Cells(8, coluna)).Value

For Each meses In ThisWorkbook.Sheets(nome).Range("B40:M40")
If meses = ThisWorkbook.Sheets(1).Range("S14") Then
coluna = meses.Column

ThisWorkbook.Sheets(nome).Range(Cells(41, coluna), Cells(47, coluna)) = conteudo         '( o erro está nessa linha)

End If

Next

End If

Next

planilha.Close

End If

Application.ScreenUpdating = True

    
Next

End Sub

Editado Abril 3, 2021 por Yuri Lucka

[Yuri Lucka]

Consegui resolver.

Segue o código pra quem tiver curiosidade de como ficou:

 

Sub Puxar_fechamento()

Dim pasta As Object
Dim caminho_pasta As String
Dim planilha As Object
Dim nome As String
Dim coluna As Integer

caminho_pasta = "C:\Users\ricar\Desktop\treino\"
Set pasta = CreateObject("scripting.filesystemobject").getfolder(caminho_pasta)
For Each arquivo In pasta.Files
    If InStr(arquivo.Name, "Thumbs") = 0 Then
    
    Set planilha = Workbooks.Open(caminho_pasta & arquivo.Name)
        
        For Each mes In Workbooks(Workbooks.Count).Sheets(1).Range("B1:M1")
        If mes = ThisWorkbook.Sheets(1).Range("S14") Then
        coluna = mes.Column
        nome = Workbooks(Workbooks.Count).Sheets(1).Range("A1").Value
        conteudo = Workbooks(Workbooks.Count).Sheets(1).Range(Cells(2, coluna), Cells(8, coluna)).Value
            
            For Each meses In ThisWorkbook.Sheets(nome).Range("B40:M40")
            If meses = ThisWorkbook.Sheets(1).Range("S14") Then
            coluna = meses.Column
            ThisWorkbook.Sheets(nome).Activate
            Range(Cells(41, coluna), Cells(47, coluna)) = conteudo

            planilha.Close
            End If
            Next
        End If
        Next
    End If
Next

End Sub