sort five columns - individually

VBA gurus,
By being so active here, I am learning some VBA coding. Mostly by copying and modifying code to suit my needs.
I needed to figure out a way to:
1. Look at five columns [each is filled to different size by another macro],
and if row 1 in the respective column has text in it,
2. Find last used row in that column and
3. Sort each column alphabetically from Row 4 to end of that column.

In the attached example I have a macro "sort".
It works, but as you can see, I am using a lot of workarounds.
In hopes of learning proper syntax; to loop though columns B-F and selecting appropriate range and then sorting the range; I am asking someone to look at the code and streamline it so its more efficient.

Here's the code:

Sub sort()
Dim lastrow As Long
Dim col As Integer
Dim begin, last As String
Dim Len1 As Integer
Dim col1 As String
Dim myrange As String
For col = 2 To 6
If col = 2 Then
col1 = "B"
End If
If col = 3 Then
col1 = "C"
End If
If col = 4 Then
col1 = "D"
End If
If col = 5 Then
col1 = "E"
End If
If col = 6 Then
col1 = "F"
End If


 Len1 = Len(ActiveSheet.Cells(1, col))
 
        If Len1 > 1 Then

        lastrow = ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row
        begin = col1 & "4"
        last = col1 & lastrow
        myrange = begin & ":" & last
        ActiveSheet.Cells("4", col).Select
            Application.CutCopyMode = False
             Range(myrange).Select
         Selection.sort Key1:=Range(begin), Order1:=xlAscending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
        End If
Next col

End Sub

Thank you for you help.
modytrane.

Hello modytrane,

I scaled your macro down. I am not sure where you are getting the column number from. In the macro, the column is taken from the ActiveCell. You will propbably need to change that. When using Cells the row must be a long value. The column can be either a string representing the column, like "A", "B", "C", etc. or long integer. It is easier to read the string, but faster to use the number in loops. That why the If...Then statements are gone. You also don't need to select a range in order to sort it.

Sub sortcolumn()

  Dim C As Long
  Dim FirstCell As Range
  Dim LastCell As Range
  Dim myrange As Range
  Dim R As Long
  
     C = ActiveCell.Column
     If Cells(1, col) < 1 Then Exit Sub
     
        Set FirstCell = Cells(4, col)
        Set LastCell = Cells(Rows.Count, col).End(xlUp)
          If LastCell.Row < FirstCell.Row Then Exit Sub
        
        Set myrange = Range(FirstCell, LastCell)
        
        myrange.sort Key1:=Range(begin), Order1:=xlAscending, Header:=xlNo, _
                     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                     DataOption1:=xlSortNormal

End Sub

Sincerely,
Leith Ross

Leith,
Thanks for responding.
A couple of issues with your code.

You have not declared or defined "Begin". You are using it in

myrange.sort Key1:=Range(begin),

I also wanted to loop through columns B to F.
The columns would be fixed as B,C,D,E and F.
Only rows would vary from 4 to Lastrow. I think you've got that part right.
The reason I had those IF statements was to create a "For col = 2 to 6" loop. But I didn't know how to use that integer in the sort statement. So I created col1 and made it B,C,D,E or F while I looped through col values of 2 thru 6.

Thanks Again,
Hopefully you will have time to incorporate these changes for me.
modytrane.

Hello VBA Experts,
I was hoping someone would have picked this up by now.
I would appreciate if you can look into the code posted above and respond to the request.
Thanks in advance,
modytrane