VBA) 데이터 전체 행/열 구하기

Dim sht As Worksheet

Set sht = ActiveWorkbook.sheets ("매핑생성")

'필터해제
If sht.FilterMode = True Then
   sht.ShowAllData
End If

1)
rowcnt = sht.Range("b65536").End(xlUp).Row
colcnt = sht.Rnage("A1").End(xlToRight).Column

2)
With sht.UsedRange
   rowcnt = .Rows.Count
   colcnt = .Columns.Count
End With