Removing Data From A List

I need to give the facility for a line to be edited (Columns A to E would remain as-is, only F would change. I also need to give the facility for a line to be removed completely.


Private Sub CommandButton1_Click()
Dim shDest As Worksheet
Dim shSource As Worksheet
Dim Rw As Long

Set shDest = Sheets("BLOCKTIMES")
Set shSource = Sheets("DATA ENTRY")
Rw = shDest.Range("B65536").End(xlUp).Row + 1

With shDest
'B2 to column B; D4 to Column C; C3 to Column D...........