Issues for pasting range of data

[excel_userss]

Hi All
I would like to create a macro where i can paste Columns of Option, Strike and Expiry in respective sheets(sheet name is on left). I have written a macro. please advice the necessary changes

SheetNAme	Option	Strike	Expiry
NIkit	c	11200	27-Jun-19
sandeep	P	11300	27-Jun-19
Shraddha	c	11400	27-Jun-19
NAyan	C	11500	27-Jun-19
sansbin	P	11600	27-Jun-19

<tbody>
</tbody>

Sub Macro1()'Sub SearchSheetName()
Dim xName As String
For m = 2 To 6
xName = Worksheets("sheet1").Range("A" & m)
Range(("B" & m), ("D" & m)).Copy
Worksheets(xName).Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial

'Selection.Value = Worksheets("sheet1").Range(("B" & m), ("c" & m))
Next m
End Sub

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...op-functionality-post5288155.html#post5288155

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing and not to bump a thread more than once a day.