Put the following event macro in the the worksheet code area:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Long, shp As CheckBox
Dim r1 As Range, r2 As Range
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
R = Target.Row
Set r1 = Range("H" & R)
Set r2 = Range("I" & R)
ActiveSheet.CheckBoxes.Add(358.5, 93, 41.25, 33).Select
Set shp = Selection
shp.Left = r1.Left
shp.Top = r1.Top
shp.Height = r1.Height
shp.Width = r1.Width
ActiveSheet.CheckBoxes.Add(358.5, 93, 41.25, 33).Select
Set shp = Selection
shp.Left = r2.Left
shp.Top = r2.Top
shp.Height = r2.Height
shp.Width = r2.Width
Application.EnableEvents = True
End Sub