안녕하세요.

작성해 드린 코드는 '접수표' 시트에 M열까지 입력이 되도록 한 것 입니다.

아래 빨강색 숫자를 입력할 범위만큼 늘려서 사용하시면 됩니다.

    With Worksheets("접수표")
        For i = 1 To 16 Step 4              
            For j = 2 To 23
                If .Cells(j, i) <> "" Then
                    RowNo = j
                    If .Cells(j, i) > intNo Then intNo = .Cells(j, i)
                Else
                    Exit For
                End If
            Next
        Next
    End With

그리고 계속 오른쪽으로 데이터가 입력되어야 한다면 데이터를 입력받아

저장해 두는 시트를 정해서 저장해 두고

저장된 데이터를 Output 양식에 맞게 출력하는 코드를 만들어야

할 것 입니다.

감사합니다.