Copy ROW from one spreadsheet to another

[alm395]

I have a report I am working on. One sheet named "BlueSkyDATA" has the raw data I am pulling from. It has 19 columns (A-S) and hundreds of rows. If the time data in column K is greater than or equal to 1 hour, I would like that whole row to be copied to another spreadsheet in the same workbook, called "Dispatched" beginning at A4. How can I do this?

Thanks so much, in advance!
Ann

 

[alm395]

I managed to get it to pull the data how I needed it to by using the info below. I think the way to eliminate pulling duplicate data can be solved by setting a start and end date and time. Can you help with that? Sorry, I am just learning...

---

Sub New_Filter()
'Modified 4-23-18 4:50 PM EDT
Application.ScreenUpdating = False
Sheets("BlueSkyDATA").Activate
Dim Lastrow As Long

Lastrow = Sheets("BlueSky60").Cells(Rows.Count, "M").End(xlUp).Row + 1
If Lastrow < 2 Then Lastrow = 2
With ActiveSheet.Range(Cells(1, "M"), Cells(Cells(Rows.Count, "M").End(xlUp).Row, "M"))
.AutoFilter Field:=1, Criteria1:=">=" & TimeValue("01:00:00")
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("BlueSky60").Cells(Lastrow, "A")
.AutoFilter
End With

Application.ScreenUpdating = True
End Sub

---

Thanks so much!
Ann

 

[My Aswer Is This]

I'm not sure where we are going with this:
In Post 6 you said:

@My Answer is This
I had to tweak it a tiny bit, but it works!!! Thank you soo much! That just saved me so much time and a big 'ol headache! You are the BEST!!!​

Then you asked for it to include more and I added more and you never responded back till now.
And now it sounds like you want something entirely different.

And how do you plan to tell the script the start and end dates and times?

 

[alm395]

Sorry for not replying to the answer. I didn't see it until today.

I will just keep running the report the way I have it scripted in the last response and manually delete the duplicates.

Thank you for your time.

I'm not sure where we are going with this:
In Post 6 you said:

@My Answer is This
I had to tweak it a tiny bit, but it works!!! Thank you soo much! That just saved me so much time and a big 'ol headache! You are the BEST!!!​

Then you asked for it to include more and I added more and you never responded back till now.
And now it sounds like you want something entirely different.

And how do you plan to tell the script the start and end dates and times?

 

[My Aswer Is This]

My script was never written to remove duplicates.
I work on scripts one step at a time. When I'm not sure what user wants.
So your saying the script worked but does not remove duplicates

In what column are we looking for duplicates?

And you want the duplicates deleted after they are copied to sheet named

Sheets("BlueSky60")​