vba 데이터복사관련문의

Sub scan_copy_paste()
Dim 원본시트 As Worksheet
Dim 대상시트 As Worksheet
Dim 원본범위 As Range
Dim 대상행 As Long
Dim 대상열 As Long

' 원본 시트와 대상 시트 설정
Set 원본시트 = Sheets("scan_data")
Set 대상시트 = Sheets("scan_data_raw")

' 원본 시트에서 A4부터 입력된 데이터가 있는 범위 찾기
Set 원본범위 = 원본시트.Range("A4").CurrentRegion

' 값 복사
Dim 복사값 As Variant
복사값 = 원본범위.Value

' 대상 시트에서 마지막 행 찾기
대상행 = 대상시트.Cells(대상시트.Rows.Count, "A").End(xlUp).Row + 1

' 대상 시트에서 마지막 열 찾기
대상열 = 대상시트.Cells(1, 대상시트.Columns.Count).End(xlToLeft).Column

' 값 붙여넣기
대상시트.Cells(대상행, 1).Resize(UBound(복사값, 1), UBound(복사값, 2)).Value = 복사값

MsgBox "값이 복사되어 다른 시트의 마지막에 붙여넣었습니다.", vbInformation

' 클립보드 비우기
Application.CutCopyMode = False

End Sub

문제가 되는건 해당 빨강색부분이 문제입니다.

Set 원본범위 = 원본시트.Range("A4").CurrentRegion

해당값에서는 A4부터 시작으로 되어있는데 막상 실행을 시키면

A1부터 데이터가 복사가 되고 A4-> A10으로 바꿔도 A1부터 복사가 되는데요

무엇이 문제일까요 ㅜㅜ