Excel VBA

Hi,


My code currently matches the value (Text) of a cell in a sheet to a cell in another sheet containing the same word. The code then copies the full range of data in that row to a third sheet.

The sheets are as follows :
Data Sheet - this is a sheet with all of my information
Data Input - the user selects a name from a drop-down list
Sheet3 - this is a sheet to deposit the copied data from "Data Sheet"


The two issues I have are,
Firstly : I need to be able to put names in any order in "Data Input" and have the corresponding data from "Data Sheet" copied and pasted into the order that is in "Data Input".
i.e. name 1
name 4
name 2
Title
name 3
At the moment the data in "Data Sheet" is in alphabetical order and so my results are in alphabetical order, I want to be able to be flexible in the order

Secondly:
I need to be able to input and copy duplicate names.
i.e. as of now if my name is Unit 1. If this is input into "Data Input" the code will only copy/paste one row. Whereas I would want to have two rows of "Unit 1"

See code below.
Best regards
Liam


Dim c As Range, d As Range, e As Range
Application.ScreenUpdating = False

Worksheets("Sheet3").Range("A1:HA1000").ClearContents

Worksheets("Data Sheet").Activate
For Each c In Range("B13:B300")
For Each d In Worksheets("Data Input").Range("B13:B300")

If d = c Then
Application.CutCopyMode = False
c.Resize(1, 210).Copy
Worksheets("Sheet3").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Exit For
End If
Next
Next


Worksheets("Data Input").Range("B13:DM300").Value = Worksheets("Sheet3").Range("B2:DM300").Value

Worksheets("Data Input").Range("DP13:HA300").Value = Worksheets("Sheet3").Range("DP2:HA300").Value
Worksheets("Data Input").Range("U12:U300").ClearContents

Worksheets("Data Input").Activate
Range("B12").Select


Application.ScreenUpdating = True


End Sub