Macro to act differently on selected Multiple Columns

Thanks a lot, xlbiznes...

But there is a small issue, the first column B in the selection should be marked as text and therefore i do it the Text to Column way when i tried to copy the formatting for some reason it did not make it into text..

The reason is that this employee code is text in all other files and therefore i have to explicitly change the format to text...

Can you please show me how to write the code only for 2 columns and I will manage the rest..

Thanks in advance...

I would prefer to have the formatting for each column written seprately and then i should be able to apply the same dynamically..

Regards
e4excel

Thanks for all the efforts and sorry for posting a late response...I was not able to post a reply as my net was veryl slow...

This is very close and also beneficial but my idea was to get the First Row no as the one in selection which could be from an already existing filled column with lets say 11 cells from cell A1 till A11 and if I select the cells or a range of columns starting From A5 till C8 then I want the First Row to be 5 and the Last Row to be 8 though technically the first filled row no = 1 and the last row no = 11.


Is this possible in this style of coding..

Sub Col_1()


Dim StartRow As Integer
Dim LastRow As Integer
Dim wsSP_List As Worksheet

Set wsSP_List = Worksheets("SP List")

With wsSP_List

StartRow = ? * /Selected First Row No 
LastRow = ?  * /Selected Last Row No 

With .Range(.Cells(StartRow, 1), .Cells(LastRow, 1))    'Column Heading - Cluster Name
         
 .Formula = "=IF(ISNA(VLOOKUP($AJ2,Dump!$AJ:$AN,5,0)),$AK2,VLOOKUP($AJ2,Dump!$AJ:$AN,5,0))"
 .Value = .Value
 .Alignment = XlLeft


End With

End with

End Sub

Thanks & regards
e4excel