Hi coconutt,
The issue is that your macro is only designed to update the 4th column from the 1st column's result. Try:
Code:
Sub MyMacro()
Application.ScreenUpdating = False
Dim TblRow As Long, TblCol As Long
With Selection
TblRow = .Cells(1).RowIndex
TblCol = .Cells(1).ColumnIndex
.Tables(1).Cell(TblRow, TblCol + 3).Range.FormFields(1).CheckBox.Value = _
.Tables(1).Cell(TblRow, TblCol).Range.FormFields(1).CheckBox.Value
End With
Application.ScreenUpdating = True
End Sub