Macro to Sort Dates

[PurrSent]

Hi, I need more help with this macro, please!

When I run ths Macro (many thanks to Osvaldo Palpeiro and shg for their help with this so far)

Sub Date_Order_1()
  '
  ' Date_Order Macro
  ' Puts Date (Column B) in ascending order
  '
  ' Keyboard Shortcut:
     
     ActiveSheet.Unprotect Password:=""
     
     With ActiveSheet
       .Unprotect
       .[A16:BZ115].Sort Key1:=[B16], Order1:=xlAscending
       .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
     End With
        ActiveSheet.Protect Password:=""
  End Sub

Unfortunately, the whole row does not always go with the date, Sponsor etc. As a result, the amounts paid in the bank account and/or data along the row, do not alway tally with the name at the beginning of the row.

Some of the rows appear to be correct whereas others seem to have random data. Some rows even seem to have disappeared altogether

I'm hoping someone can help solve this issue, please?

I appreciate any help and advice offered. Many thanks

Here is a 'mock-up' of the spreadsheet (in principle) which I hope helps appreciate the situation

 

[PurrSent]

Hi yky

How is this different from the current macro, please? It looks the same to me, apart from curved brackets vs square brackets. Am I missing something?

Thanks

Here is the current macro

Sub Date_Order_1()
  '
  ' Date_Order Macro
  ' Puts Date (Column B) in ascending order
  '
  ' Keyboard Shortcut:
     
     ActiveSheet.Unprotect Password:=""
     
     With ActiveSheet
       .Unprotect
       .[A16:BZ115].Sort Key1:=[B16], Order1:=xlAscending
       .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
     End With
        ActiveSheet.Protect Password:=""
  End Sub

 

[PurrSent]

yky

Many thanks for helping me with this. I've now, after studying the code, realised how the code is different, doh!!! This seems to be working well with your changes.

I very much appreciate your help with this
%

 

[yky]

I'm glad your problem is solved now.