삽입 - 모듈

Sub macro()
For i = 2 To Sheets.Count
    Sheets(i).UsedRange.Copy Cells(65536, 1).End(xlUp)(2)
Next
End Sub


비어 있는 첫시트에서 매크로 실행