Filter/Delete.Rows then Copy New Data and Insert xldown

Helloooo, this is the solution guys..

This code:
- Arrays from Raw Data
- Filters/Deletes Rows according to criteria
- Copy Selection and Insert to sheet2

THANKS FOR THE HELP!

Option Explicit

Sub Module1()
Dim myCount As Integer
Dim lastrow As Long

    'Filter

    Sheets("sheet1").Select
        Application.ScreenUpdating = False
            myCount = Range("A1").Value
                Range("C10:R10").Select
                    Selection.AutoFill Destination:=Range("C10:R11"), Type:=xlFillDefault
                        Range("C11:R11").Select
                            Selection.Cut
                                Range("C13").Select
                                    ActiveSheet.Paste
                                Selection.AutoFill Destination:=Range("C13:R" & myCount), Type:=xlFillDefault
    
    Range("C13:R" & myCount).Select
        Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

'Delete "Not Today"
            Do While myCount > 12
            If Range("C" & myCount).Value = "Not Today" Then Range("C" & myCount).EntireRow.Delete
                                myCount = myCount - 1
                                Loop
                        'For myCount = 250 To 7 Step -1
    'If Range("C" & myCount).Value = "XXX" Then Range("C" & myCount).EntireRow.Delete
    
lastrow = Sheets("Sheet1").Range("c" & Rows.Count).End(xlUp).Row

Sheets("Sheet1").Range("c13:E" & lastrow).Copy
       Sheets("sheet2").Select
            Range("A10").Select
                Selection.Insert Shift:=xlDown
                    
   End Sub