This can be done quite easily using bookmarks. With D1-D4, for example, simply bookmark that entire range with a single bookmark (e.g. D1); likewise for D2-D4, and so on. Your macro code to delete the unwanted ranges might then be coded along the lines of:
Sub Demo()
 Dim DelItems As String
 DelItems = InputBox("Please input Groups/Items to delete, separated by spaces" & vbCr & _
 "(e.g. D2 E2 to delete group D2-D4 and item E2)")
 If Trim(DelItems) = "" Then Exit Sub
 Do While InStr(DelItems, "  ") > 0
   DelItems = Replace(DelItems, "  ", " ")
 Loop
 With ActiveDocument
   For i = 0 To UBound(Split(DelItems, " "))
   Select Case Left(Split(DelItems, " ")(i))
     Case "D"
       Select Case Right(Split(DelItems, " ")(i))
         Case "1": .Bookmarks("D1").Range.Delete
         Case "2": .Bookmarks("D2").Range.Delete
         Case "3": .Bookmarks("D3").Range.Delete
         Case "4": .Bookmarks("D4").Range.Delete
       End Select
     Case "E"
       Select Case Right(Split(DelItems, " ")(i))
         Case "1": .Bookmarks("E1").Range.Delete
         Case "2": .Bookmarks("E2").Range.Delete
       End Select
     Case "F"
       Select Case Right(Split(DelItems, " ")(i))
         Case "1": .Bookmarks("F1").Range.Delete
         Case "2": .Bookmarks("F2").Range.Delete
       End Select
     Case "G"
       Select Case Right(Split(DelItems, " ")(i))
         Case "1": .Bookmarks("G1").Range.Delete
         Case "2": .Bookmarks("G2").Range.Delete
       End Select
   End Select
 End With
 End Sub