How can I write this code in VBA

but needs to be faster, any suggestions?

Dim CheckSh As Variant
Dim TargetSh As Variant
Dim SearchVal As Variant
Dim rw1 As Long
Dim rw2 As Long
Dim myMsg As Variant

CheckSh = "TimePeriods"
TargetSh = "Trades"

For rw1 = 3 To Worksheets(TargetSh).Cells(65536, 3).End(xlUp).Row

SearchVal = Worksheets(TargetSh).Range("C" & rw1).Value


For rw2 = 1 To Worksheets(CheckSh).Cells(65536, 1).End(xlUp).Row

If SearchVal >= Worksheets(CheckSh).Range("A" & rw2) And SearchVal < Worksheets(CheckSh).Range("B" & rw2) Then Worksheets(CheckSh).Range("C" & rw2).Copy

Worksheets(TargetSh).Range("A" & rw1).Select
Worksheets(TargetSh).Paste

End If

Next rw2


Next rw1