Trying to create Macro that will continuously copy and paste data from a drop down list

[psywagon]

I have this current Macro that does works for a single object in my list.

Sub pasteprojectdataProjectDataPublishMacro()
'
' pasteprojectdataProjectDataPublishMacro Macro
'

'
Sheets("Dash").Select
Range("C1:H2").Select
ActiveCell.FormulaR1C1 = _
"='ProjectDataPublishMacro'!R3C5"
Sheets("ProjectData").Select
Rows("4:4").Select
Selection.Copy
Range("A341").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



End Sub

My Issue is that I want it to continuously do this for a larger range of data without having to copy and paste the code repeatedly for each new cell. I have a dashboard where the data is published. The first two rows of the macro are the selection of that cell. From there I am struggling to understand how to make this a loop where it will take the data set and do this for the next 62 lines of data I have. Can anyone help?