Moving data from one sheet to anotheronly if its updated in a third sheet?

[tonywatsonhelp]

Hi everyone,
I have 3 sheets,
Data Now,
Data Start
Data Old.

All are set up the same. with data in the same rows and columns so if row 20 is client A its client A in all of them.

now heres what i need,
I want a macro that when run checks sheet "Data Now" down colum D and finds any dates that are "today()"
It then goes to sheet "Data Start" and copies Range "B:AY" of that row into "Data Old" in the same row, updatng the data.
then does the next row ect. there might be blank rows and we need to skip these if possible.

Please help f you can thank Tony

 

[mumps]

Try:

Sub CopyData()
    Application.ScreenUpdating = False
    Dim LastRow As Long, rng As Range, srcWS As Worksheet, desWS As Worksheet
    Set srcWS = Sheets("Data Start")
    Set desWS = Sheets("Data Old")
    LastRow = Sheets("Data Now").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Sheets("Data Now").Range("D1:D" & LastRow).AutoFilter Field:=1, Criteria1:=Date
    For Each rng In Sheets("Data Now").Range("D2:D" & LastRow).SpecialCells(xlCellTypeVisible)
        srcWS.Cells(rng.Row, 2).Resize(1, 50).Copy desWS.Cells(rng.Row, 2)
    Next rng
    Sheets("Data Now").Range("D1").AutoFilter
    Application.ScreenUpdating = True
End Sub