변수의 입력방법

다른 시트에서 코드를 기준으로 판매량데이터를 가져오려고 합니다.

match함수로 총판매현황의 몇 번째 열값을 가져올 것인지 numm으로 정하고 D행numm열부터 오른쪽 끝 행까지의 값을 1장 시트로 가져와서 붙이려고 합니다.

그런데 아래에 빨간색으로 표시한 부분 Range("D" & numm, "D"&numm.End(xlRight)).Copy을 못읽고 오류가 계속납니다.

D행numm열 부터 오른쪽 끝행까지의 값을 range로 잡는 방법은 무엇인가요?

sub this()

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr

Dim numm As Integer
numm = WorksheetFunction.Match("A" & i, Sheets("총 판매현황"), 0)

Sheets("월간 판매동향").Select
Range("D" & numm, "D"&numm.End(xlRight)).Copy

Sheets("1장").Select
Range("C" & i).paste

Next i

End Sub