안녕하세요.

매크로 코드 중 FOR ~ NEXT 문 사이에

IF ~ THEN 문에서  ENDIF가 누락돼서 나오는 오류입니다.

    If intcol = 5 Then
        introw = introw + 9
        ActiveSheet.Range("2:10").Copy
        ActiveSheet.Cells(introw - 1, 1).Select
        Selection.PasteSpecial Paste:=xlPasteFormats
        intcount = intcount + 1
    End If
   
    If intcount Mod 6 = 0 Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
    End If

위의 빨강색 부분을 삽입하시면 됩니다.