2개의 시트 값을 다른 시트에 추출하는 과정에서 문제가 발생했는데 이유가 뭘까요??

안녕하세요, VBA 야매 공부하며 작업 중인 직장인1입니다.

제목과 같이 2개의 시트에 들어있는 데이터 일부 값을 다른 시트에 추출하는 작업을 진행하고 있는데

디버그는 없는데 데이터가 제대로 안 들어가는 현상이 발생합니다...

다른 VBA들은 정상으로 작동하는데 왜 얘만 이러는지 이해가 안 됩니다 ㅠㅠㅠㅠㅠㅠㅠ

혹시 뭐가 문제인지 도와주실 분을 기다립니다 ㅠㅠㅠㅠ

Sub Extract_Result() 'Result에 층별로 data 추출

Dim i As Long, lR As Long, Col As Integer
Dim sht As Worksheet, sht1 As Worksheet, sht2 As Worksheet
Dim floor As Range, rng As Range

Application.ScreenUpdating = False
Application.Calculation = xlManual

Sheets("Result").Activate
Sheets("벽체 INFORM").Activate
Sheets("Wall Performance").Activate
Set sht = Sheets("Result")
Set sht1 = Sheets("벽체 INFORM")
Set sht2 = Sheets("Wall Performance")
lR = Range("a1").Cells(Rows.Count, "a").End(xlUp).Row

For i = 5 To lR

Set floor = sht2.Cells(i, "a")
If floor.Value = "1F" Then
Col = 20
Else
Col = Val(Left(floor.Value, InStr(floor.Value, "F") - 1)) * 5 + 15
End If

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

rng.Offset(, 0) = sht2.Cells(i, "b")
rng.Offset(, 1) = ""
rng.Offset(, 2) = sht2.Cells(i, "ad")
rng.Offset(, 3) = sht1.Cells(i + 6, "g")

Next i

Sheets("Result").Activate

Application.ScreenUpdating = ture
Application.Calculation = xlCalculationAutomatic

End Sub

표에 데이터들이 알맞게 들어가야하는데 표 밑으로 들어가 있습니다....

뭐가 문제일까요