Private Sub SelectConstants()
Dim rRange1 As Range
Dim rRange2 As Range
Dim rRange3 As Range
Dim rRange4 As Range
Dim valX As Characters
'Select Constants (multiple selection)
Set rRange1 = Range(Cells(4, Me.ValColLet.Value), Cells(65536, Me.ValColLet.Value).End(xlUp))
On Error Resume Next
Set rRange2 = rRange1.SpecialCells(xlCellTypeConstants, 1)
Set rRange3 = Range(Cells(3, ValColLet))
Set rRange4 = Union(rRange2, rRange3)
On Error GoTo 0
If rRange4 Is Nothing Then
MsgBox "No Data Found", vbExclamation
Unload Me
Exit Sub
End If
rRange4.Select
Call CopyAndPaste
rRange4.ClearContents
End Sub