시트 합치기 vba 강의 부분 질문이요

@tal**** 님 안녕하세요? 🙂
답변이 늦어 죄송합니다.
전체 시트, 그리고 특정 범위(B2:F200)을 합치려면 명령문의 아래 부분을

For i = 0 To Me.lstSheet.ListCount - 1
If Me.lstSheet.Selected(i) = True Then
Set WS = WB.Worksheets(Me.lstSheet.List(i))
With WS
'// 시트의 마지막 행/열 받아오기에 대한 자세한 설명은 아래 링크를 참고하세요.
'// https://www.oppadu.com/엑셀-사전/엑셀-vba-마지막-셀-찾기-마지막-행-찾기/
endRow = .Cells(.Rows.Count, 1).End(xlUp).Row
endCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set Rng = .Range(.Cells(2, 1), .Cells(endRow, endCol))
Rng.Copy newWS.Cells(j, 1)
j = j + Rng.Rows.Count
End With
End If
Next

아래와 같이 수정해보세요. 그럼 전체 시트의 특정 범위를 한번에 병합할 수 있습니다. ^^
답변이 도움이 되셨길 바랍니다.

For Each WS in WB.Worksheets
With WS
Set Rng = .Range("B2:F200")
Rng.Copy newWS.Cells(j, 1)
j = j + Rng.Rows.Count
End With
Next