Sorting Data with code

[shyamvinjamuri]

I have Date in Column A, Column B,C and D have date. Every day the sheet is updated with today's date in Column A and Data in Columns B,Cand D.
Upon the entry of today's data, I would like to auto sort so that today's date and data shows at the top of the cloumn.

I am new to VBA. Any help is highly appriciated.

Thanks

 

[jindon]

Hi
Paste the code onto sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
      If .Count > 1 Then Exit Sub
      If .Column <> 1 Then Exit Sub
      If .Value <> Date Then Exit Sub
End With
Application.EnableEvents = False
Range("a1").CurrentRegion.Resize(,4).Sort _
       key1:=Range("a1"),order1:=xlDescending, header:=xlGuess
Application.EnableEvents = True
End Sub

 

[shyamvinjamuri]

Jindon,

Thank you so much. The code works perfectly.
Thanks again.

Shyam