vb

sheets("명세표").activate

Dim i As Integer
Dim r As Range, rngX As Range
Set rngX = Range(Range("a6"), Range("a6").End(xlDown))

i = Sheets("검사-백업").[a2].CurrentRegion.Rows.Count + 1

--현재셀을 기준으로 연속해서 사용된 영역

a = Range("b5").CurrentRegion.Rows.Count + 5

a라는 변수에 B5셀기준 위아래로(붙어있는,연속해서) 데이터가 있는셀 갯수
에다가 5를 더한 값이네요.

--사용된 영역

ActiveSheet.UsedRange.Select

For i = Selection.Rows.Count To 1 Step -1

--

b = ActiveCell.Rows(ActiveCell.Rows.Count).Row

--

Range("c3").Activate

MsgBox ActiveSheet.Range("c3", Range("c3").End(xlDown)).Rows.Count