Sub UnionSelectD()
Dim plg As Range
Dim i As Long
With Worksheets(1).Range("a1:a500")
For i = 1 To .Rows.Count
If .Cells(i, 1) Like "*D" Then
If plg Is Nothing Then
Set plg = .Cells(i, 1)
Else
Set plg = Union(plg, .Cells(i, 1))
End If
End If
Next i
End With
If Not plg Is Nothing Then plg.Select
End Sub