How can I limit this sub to Table4 data rows, and add 1 to Ep?
Code:
Private Sub CommandButton2_Click()
Dim tb As ListObject
Set tb = ActiveSheet.ListObjects("Table4")
Cells(Selection.Row, tb.ListColumns("ET").Index).Value = DateAdd("ww", 1, Cells(Selection.Row, tb.ListColumns("ET").Index).Value)
Cells(Selection.Row, tb.ListColumns("Ep").Index).Value = Cells(Selection.Row, tb.ListColumns("Ep").Index).Value + 1
End Sub