Ammendment to working code

Hello Andrew,

Thanks for replying

I gave the wrong code to begin with. I should have put

Sub Copytodaylib()

Sheets("DISTRACTIONS").Select
Dim lr As Long
Dim rcell As Range


lr = Cells(Rows.Count, 20).End(xlUp).Row


For Each rcell In Range("T2:T" & lr)


    If rcell = Date Then
    
        Range(rcell, rcell.Offset(, 48)).Copy
        With Sheets("Paste").Range("A" & Rows.Count).End(xlUp).Offset(1)
        .PasteSpecial Paste:=xlPasteColumnWidths
        .PasteSpecial Paste:=xlPasteValues
        End With
       
    End If
    
Next rcell

End Sub

However I put

Range(rcell.EntireRow.Cells(22), rcell.EntireRow.Cells(68)).Copy

from the code you gave me to replace

Range(rcell, rcell.Offset(, 48)).Copy

on my code and it worked so thanks very much.

Where do I go to mark this thread as solved?

Happy to help and glad you're sorted.

To mark your thread solved do the following:
- Go to the first post
- Click edit
- Click Advance
- Just below the word "Title:" you will see a dropdown with the word No prefix.
- Change to Solve
- Click Save

Done, thanks

I have another question - do I have to start a new thread?

If the question is related to the same problem then you can post it in this one.

However, fewer people are likely to click on a thread marked 'Solved' which already has a number of replies, so you'll probably attract more views if you start a new thread.

OK - it is a different question so i'll post it to another thread

Thanks for your help