VBA 확인 부탁 드립니다

기초코드입니다. 이사이트에서 강의 VBA강의 초급수준 1개정도만 들으시면 쉽게 응용하실 수 있을 것입니다.

N = Cells(Rows.Count, "B").End(xlUp).Row -> B열의 최하단에서[Cells(Rows.Count, "B")] B열에 값이 입력되어 있는 곳까지 위로 이동한[End(xlUp) - 엑셀시트에서 End+↑입력과 동일]후 그 열의 번호[.Row]를 구함.

만약 B열이 전부 공란이면 N은 1을 의미하며, B10세에 마지막 입력한 값이 있으면 10을 나타냄.

Sub 정()
Dim N As Long
N = Cells(Rows.Count, "B").End(xlUp).Row + 1 ' +2입력시 B3선택, +3입력시B4부터 입력
Cells(N, "B").Value = "정"
End Sub

Sub 삭제()
With ThisWorkbook.Worksheets("sheet1")
' 사용된 모든 범위에서 마지막셀을 찾습니다.
Dim endRow As Long ' 마지막행
endRow = Cells(Rows.Count, "B").End(xlUp).Row   ' - 1 숫자를 지움

.Cells(endRow, "B").Delete
End With
End Sub

첨부파일 : 버튼-수정-요청의건.xlsm