select an already selected range and select a fixed range and save as a pdf

[Ratigan1970]

hi again all in vba land

i have a problem that i cant solve
i have a column (range is row 2 to 103) that is already selected but i need to select column A,B,C as well and save as a pdf.
the selected column changes columns see pics below

many thanks to anyone that can help

 

[Artik]

Try it

    Dim rngSel As Range
    Dim rwFirst As Long
    Dim rwLast As Long
    
    Set rngSel = Selection
    
    If rngSel.Columns.Count > 1 Then
        rwFirst = rngSel.Row
        rwLast = rngSel.Rows.Count + rngSel.Row - 1
        
        Set rngSel = Union(rngSel, Range(Cells(rwFirst, "A"), Cells(rwLast, "C")))
        
        rngSel.Select
    Else
        MsgBox "Select a range of at least two columns.", vbExclamation
    End If

Artik

 

[Ratigan1970]

hi Artik and thank you so much for your code
it works spot on !!!!
many thanks again