.
This will auto sort both columns when the date is copied to Sheet 2 :
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect ""
If Not Intersect(Target, Range("F2:G20")) Is Nothing Then '<--- change range here
Range("F2").Sort Key1:=Range("F2"), _
Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Application.DisplayAlerts = True
End If
'ActiveSheet.Protect "", True, True
End Sub
If you are using formulas in F2:G20 to capture the data from Sheet 1, a different macro will most likely be required.
Paste the above macro into SHEET2 module.
Bookmarks