Sheets("SU3").Select
    Columns("B:B").Select
        
    Application.CutCopyMode = False
    Selection.Copy
    
    Sheets("SU3v1").Select
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A4:B4").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="><0", Operator:=xlAnd
    
    Range("A1").Select
    
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("SU3v2").Select
    
    If Range("A1") = "" Then
    
    Range("A1").Select
    ActiveSheet.Paste
    
    Else

    Range("A1").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Paste
    
    End If
    
    Sheets("SU3v1").Select
    Selection.AutoFilter

    Sheets("SU3v2").Select
this code on sheet SU3 COPYS column B:B, and then does the rest of the code. This process is then repeated for column C:C , D:D and so on and there is lot of code here. Can anyone help me simplfy this so that if column b1 is NOT empty then run this code and then move to the next column and so on..