Code to filter datas and copy on cells

[asyamonique]

Private Sub CommandButton1_Click()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("A" & i)
If .Text = Range("U1").Text Then
.Offset(, 1).Resize(, 5).Copy
Range("H" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
End With
Next i
End Sub

Good Day,
How can I update that code if the Source Range changed from Column A to C and then will put related column datas as given below?

H: A
I: B
J: D
K: E

 

[asyamonique]

Hi,
Thanks , will keep you posted after I try it.
Cheers