VBA Loop help for a few lines of code

[CGalavitz]

Hello,

I just registered but I've been lurking here a while.

I am trying to teach myself how to loop.

This is the macro I have that I would like to loop.

I believe I have enough info there so you know what I am trying to accomplish.

Thanks a ton

Sub Macro2()
'
' Macro2 Macro
'


'
Sheets("Data").Select
'A40 will continue to go up until blank cell is reached'
Range("A40").Select
Selection.Copy
Sheets("Price Sheet").Select
Range("A1").Select
ActiveSheet.Paste
Range("D3:E3").Select
Application.CutCopyMode = False
Selection.Copy
'CHANGE THE NEXT LINE TO WHERE ITS GOING'
'CELL V1 WILL CONTINUE TO GO UP UNTIL "A40" IS A BLANK CELL'
Range("V1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select

End Sub

 

[Fluff]

Hi & welcome to MrExcel.
Can you please explain in words what you are trying to do?

 

[CGalavitz]

I have a list of part names that I wan't to copy into another sheet that contains a bunch of formulas and charts.

This will give me two values that I then want to copy to a specific location to create a price list.

 

[Fluff]

Please remember that we cannot see your workbook, nor can we read your mind.
Can you therefore please try explaining again.