안녕하세요 VBA 코드를 이용해서 차량 출입을 적는 프로그램을 만들고 있습니다.

간단한 유저폼을 만들어 봤는데요.

몇가지 질문이 있습니다.

읽어보시고 맨 밑에 질문을 추려 올리도록 하겠습니다.

Private Sub CommandButton1_Click()

Dim lngR As Long:
' Dim rngD As Range

' rngD = Range("IV").End(xlLeft).Column + 1
lngR = Range("B65536").End(xlUp).Row + 1

Range("B" & lngR) = "=row()-2"
Range("C" & lngR) = Me.TextBox1
Range("D" & lngR) = Me.ComboBox1
Range("E" & lngR) = Me.ComboBox2
Range("F" & lngR) = Time

End Sub

대략 이러한 코드를 짜봤는데요.

질문1

lngR = Range("B65536").End(xlUp).Row + 1

이코드는 맨 밑열 부터 위로 읽어오면서 값이 없는 열을 찾아 거기서부터 시작하는 열이라고 배웠는데요.

이것을 맨 오른쪽 행부터 읽어와서 값이 없는 행을 찾는 코드를 짜고 싶어서 짜봤던게

rngD = Range("IV").End(xlLeft).Column + 1

요거인데요. 제가 명령어를 잘못 입력했는지 작동이 안되더라구요.

이것을 해결할수 있는 방법이 무엇인지 알고 싶습니다.

질문2

이러한 코드가 짜였을때 제가 입력하는 마지막 행에는 시간이 오게 되어있습니다.

제가 입력한 값이 이미 되어 있는 값에서

차량번호와 분류1,2가 모두같을때 마지막 시간이 써져있는 그 바로 뒷행으로 다시 시간을 기록하게 하고 싶습니다.

어떠한 방법이 심플하게 될까요?