[VBA기초] Cells(행,열).End(4)(2) 의 의미

Sub 셀에넣기()
    Cells(Rows.Count, "C").End(3)(2) = Application.Caller
End Sub

 

위와 같이 클릭시 아래로 문구들이 붙는 버튼을 만들었습니다.

여기서 변형으로

중간에 삭제시 빈 공간이 생겼을때

빈공간부터 채워지고 빈공간이 없을때

맨 아래로 이어서 채워지게 할 수는 없을까요?

End(4) 는 위로부터 셀이 아래로 내려가면서 공백이 나오기 바로 전 셀입니다.
End(xlDown).offset(1) = End(4)(2)는 같은 의미입니다.

Sub 셀에넣기()
    If Cells(2, "C").End(4)(2) = vbNullString Then   '// 셀이 비어있으면
        Cells(Rows.Count, "C").End(4)(2) = Application.Caller
    End If
End Sub