VBA_"특정 범위(From 숫자 To 숫자)에 해당하는 Data 추출 방법" 부탁드립니다! ㅠㅠ

안녕하세요, 취업한 회사에서 갑분엑셀 담당을 맡은 엑셀 초초초초보입니다.

어제 질문 하나 올려서 그저 빛이신 분이 해결해주셨고 다음 단계로 넘어갔습니다. 정말 감사합니다, @Jas 님!

비슷하되 조금 다른 작업이기 때문에 코드를 응용해서 혼자서 해보려고 오늘 하루 종일 도전하는 중인데

초초초보이다보니 자꾸 디버그가 떠서 멘붕의 연속이라 적어봅니다 ㅠㅠㅠㅠ

Sheets("data")에 있는 자료를 Sheets("보")의 영역에 층별로 Copy하는 작업인데

각 층에 해당하는 번호를 필터링 해야 하는데 이게 잘 안 됩니다.

추출할 Data는 A열에 노랗게 칠한 숫자 셀을 기준으로 3행씩 덩어리 되는 형식이고요, 숫자 범위는 Range("AN1:AP22") 입니다.

그래서 B1(지하1층)에 해당하는 행이 아래 그림처럼(↓) 들어가면 성공입니다.

아래는 작업 중인 VBA입니다!

뭐가 문제일까요? ㅠㅠㅠ

Sub Record_Data_at_BeamResult_from_BeamData()

Dim i As Long, lR As Long, Col As Integer
Dim sht As Worksheet
Dim floor As Range, rng As Range
Dim Start_No As Range, End_No As Range

Application.ScreenUpdating = False
Application.Calculation = xlManual

Sheets("data").Activate
Set sht = Sheets("보")
lR = Range("a1").Cells(Rows.Count, "a").End(xlUp).Row

For i = 4 To lR Step 3
Set floor = Cells(i - 2, "an")
If floor.Value = "B1" Then
Col = 7
Else
Col = Val(Left(floor.Value, InStr(floor.Value, "F") - 1)) * 10 + 7
End If

Set rng = sht.Cells(Rows.Count, Col).End(xlUp).Offset(1)

Set Start_No = Cells(i - 2, "ao")
Set End_No = Cells(i - 2, "ap")
If Start_No.Value <= Cells(i, "a") <= End_No.Value Then
rng.Offset(, 0) = Cells(i, "a") 'beam ID
End If
rng.Offset(, 1) = Cells(i, "c") 'beam name
rng.Offset(, 2) = Cells(i + 2, "a") 'span
rng.Offset(, 3) = Cells(i, "m") 'rat-N at end-i
rng.Offset(, 4) = Cells(i, "q") 'rat-P at end-i
rng.Offset(, 5) = Cells(i, "u") 'rat-V at end-i

rng.Offset(1, 0) = ""
rng.Offset(1, 1) = Cells(i + 1, "c") 'bf
rng.Offset(1, 2) = Cells(i + 1, "c") 'hf
rng.Offset(1, 3) = Cells(i + 1, "m") 'rat-N at mid
rng.Offset(1, 4) = Cells(i + 1, "q") 'rat-P at mid
rng.Offset(1, 5) = Cells(i + 1, "u") 'rat-V at mid

rng.Offset(2, 0) = ""
rng.Offset(2, 1) = ""
rng.Offset(2, 2) = ""
rng.Offset(2, 3) = Cells(i + 2, "m") 'rat-N at end-j
rng.Offset(2, 4) = Cells(i + 2, "q") 'rat-P at end-j
rng.Offset(2, 5) = Cells(i + 2, "u") 'rat-V at end-j

Next i

Sheets("보").Activate

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub