Using If statement to pull data from adjacent cell in a range of cells then copying to another seet

[TM61404]

Hello, I am working with a report where i need to sort through associates names/different job positions/titles in a table in columns 2&3 THEN copy column twos values and add it to its designated spot(next empty row) based on that associates job title. the vba that i have pieced together does just that but i wanted to know if there was a way to make a range of cells the value? or should i be using another formula for what i am trying to do. so to be clear the issue is that on a day to day basis we will refresh these names and descriptions with new ones so it does not help for the formula to be tied to one specific value. ANY HELP WOULD BE GREATLY APPRECIATED.


Dim DELI_CLERK As String
Dim finalrow As Integer
Dim i As Integer 'ROW COUNTER

Sheets("Mon").Activate
DELI_CLERK = Sheets("MON").Range("c6").Value
finalrow = Sheets("MON").Range("c31").End(xlUp).Row

For i = 2 To finalrow
If Cells(i, 3) = DELI_CLERK Then
Cells(i, 2).Copy
Sheets("DEPT").Range("h46").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats

End If

Next i

End Sub