VBA If True, then cut and paste to a new worksheet

[freshwattrout]

I need help to make a VBA macro that looks up column B in the source sheet, determines if the value is "Y", and cuts and pastes rows C:F to the destination worksheet. I currently have the following code:

Option Explicit

Sub Completed()
 
    
    Windows("Kitting.xlsx").Activate
    Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
    For i = 2 To LastRow
    If Range("B" & i).Value = "Y" Then
    Dim pn As String
    pn = Range("C" & i).Value
    Sheets("Completed").Select
    Sheets("Completed").Range("C" & i).Value = pn
    End If
   
    Windows("Production Schedule 2021.xlsm").Activate
    Next i
    
End Sub

Source sheet (KITTING PRIORITY)

Destination worksheet (Completed)

 

[Crystalyzer]

Do you mean to "cut and paste" the Range(Ci:Fi) or "Copy and paste"?

 

[freshwattrout]

Do you mean to "cut and paste" the Range(Ci:Fi) or "Copy and paste"?

I meant to say copy and paste

 

[Crystalyzer]

Why are you activating workbooks? Aren't the source and completed worksheets in the same workbook? And if so, aren't you calling the macro from the active workbook already?