need an unusual macro

[Tempus]

i need a macro that will sort the rows by the Time column (soonest time first) and then saves the top 50 as in HTML. the colums will be the same on each row of course, but the are not linear (not a-Z) i need a-g, then Y, then AA and AB.\
can anyone help? i'm totally stumped.

 

[alx7000]

Hi Tempus,

Hopefully the following code will do what you want. Please note it assumes that the 'Time' column is in column A, if this is not the case the sorting part of the code will need adjusting slightly

Option Explicit

Sub Sort()

Application.ScreenUpdating = False

'Set current sheet for resetting later
Dim OriginalSheet As String
OriginalSheet = ActiveSheet.Name

'Sort all cells (assumes time is in column A)
Range("A1", Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)).Sort _
    Key1:=Range("A3"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
    MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
        
'copy requried columns into new sheet
Range("A1:G50,Y1:Y50,AA1:AB50").Copy
Sheets.Add Before:=Sheets(1)
ActiveSheet.Paste
Application.CutCopyMode = False

'publish html in c drive
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Test.html", ActiveSheet.Name, "", xlHtmlStatic).Publish (True)

'delete the created sheet
Application.DisplayAlerts = False
Sheets(ActiveSheet.Name).Delete
Application.DisplayAlerts = True

'reset selected sheet
Sheets(OriginalSheet).Select
Application.ScreenUpdating = True

End Sub

Any questions please let me know.

Cheers,
alx7000