fileToOpen = Application.GetOpenFilename("All Files (*.*),*.*")
    If fileToOpen = False Then Exit Sub
    Workbooks.Open (fileToOpen)
    Set w2 = ActiveWorkbook

Sub createFiles()
    Application.ScreenUpdating = False
    Dim folderName$, myPath$, r As Range, r1 As Range
    Dim avFiles
    myPath = ThisWorkbook.Path
    Set sh = ThisWorkbook.Sheets(1)
    avFiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", , "1", , True) '
    Set template = Workbooks.Open(avFiles(1))
    template.Sheets(5).Protect "1", UserInterfaceOnly:=True
    template.Sheets(2).Protect "1", UserInterfaceOnly:=True
    With sh
    Set r = Range(.Cells(3, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).SpecialCells(xlCellTypeVisible)
        For Each r1 In r
            i = r1.Row
            folderPath = myPath & "\" & .Cells(i, 17) & " " & .Cells(i, 15)
            If Dir(folderPath, vbDirectory) = "" Then MkDir (folderPath)
            With template.Sheets(5)
                .[o53] = sh.Cells(i, 14)
            End With
            With template.Sheets(2)
                .[A4] = sh.Cells(i, 1): .[d7] = sh.Cells(i, 4): .[s7] = sh.Cells(i, 5)
                .[H9] = sh.Cells(i, 7): .[x9] = sh.Cells(i, 8): .[AH9] = sh.Cells(i, 6)
                .[d11] = sh.Cells(i, 2): .[I11] = sh.Cells(i, 3): .[AH11] = sh.Cells(i, 9)
                .[d13] = sh.Cells(i, 10): .[j13] = sh.Cells(i, 11): .[N13] = sh.Cells(i, 12): .[AC13] = sh.Cells(i, 13)
                .[d15] = sh.Cells(i, 15): .[S15] = sh.Cells(i, 16)
                template.SaveCopyAs folderPath & "\" & sh.Cells(i, 7) & " " & sh.Cells(i, 4) & " " & sh.Cells(i, 18) & ".xlsm"
            End With
        Next
    End With
    template.Close False
    Application.ScreenUpdating = True
    MsgBox "AIOIAI!"
End Sub

For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
        If Rows(i).Hidden = True Then

        End If

For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
        If Rows(i).Hidden = false Then
'что-то делаем
        End If