У меня возникли проблемы со сборкой синтаксиса для этого, и я только начал работать с FSO в VBA, поэтому, пожалуйста, потерпите меня.

fsofol.name = test1 (это правильно) I '

m пытается определить, есть ли в каждой ячейке какие-либо данные в столбце «A» и если да, поместите имя папки в ячейку смещения, которую я перечислил. Я'Я надеюсь, что яЯ близок, но если кто-нибудь может помочь с предложением, я был бы благодарен. Спасибо!

Я помещаю примечание в проблемную строку ниже

    Dim fsoFol As Object  

    If fileName Like "V*.xls" Then
         wbkCS.Worksheets("Cut Sheet").Range("S4:S2000").Copy
              With wbkVer.Worksheets("Cutsheets")
              Set firstRange = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) 
    firstRange.PasteSpecial xlPasteValues
    If firstRange.Value Like "*" Then
         fsoFol.Name.Copy **'error is here and states object required**
         firstRange.Offset(0, 5).PasteSpecial xlPasteValues
    End If
              End With