Associate values from columns

[MegaMan]

Hello,

below I have posted an excerpt of my table. I would like to assign only the first value of Column B to the Column A value. For example, my new table should have in Column A the value P01 and in Column B the value of 100. Thereafter, P02 and 1200, then U01 and 2000, then U02 and 1500, and finally R01 and 400.
Please also consider the case of P02: As you can see from the table, the first numerical value in Column B is in the second row and not the first row. Is that a Problem?

Is there a quick way (macro?) to solve this?

Thanks so much.

Column A	Column B
P01	100
	200
	300
P02
	1200
	1400
	1600
U01	2000 2200
U02	1500
	2500
R01	400
	500

<tbody>
</tbody>

 

[oldbrewer]

P01	100
	200
	300
P02		<<<<blank
	1200
	1400
	1600
U01	2000
	2200
U02	1500
	2500
R01	400
	500
						this macro does it
						Dim mycol1(20), mycol2(20)
						For j = 1 To 20
						If Cells(j, 1) <> "" Then GoTo 100 Else GoTo 900
						100 For k = j To 20
						If Cells(k, 2) <> "" Then GoTo 300 Else GoTo 400
						300 Sum = Sum + 1
						mycol1(Sum) = Cells(j, 1)
						mycol2(Sum) = Cells(k, 2)
						GoTo 900
						400 Next k
						900 Next j
						For z = 30 To 29 + Sum
						tot = tot + 1
						Cells(z, 1) = mycol1(tot)
P01	100					Cells(z, 2) = mycol2(tot)
P02	1200					Next z
U01	2000					End Sub
U02	1500
R01	400

<colgroup><col><col><col span="10"></colgroup><tbody>
</tbody>

 

[MegaMan]

Thanks so far.

Visual Basic shows: "Compile error: Invalid outside procedure"

What should I do?

P01	100
	200
	300
P02		<<<<blank< p=""></blank<>
	1200
	1400
	1600
U01	2000
	2200
U02	1500
	2500
R01	400
	500
						this macro does it
						Dim mycol1(20), mycol2(20)
						For j = 1 To 20
						If Cells(j, 1) <> "" Then GoTo 100 Else GoTo 900
						100 For k = j To 20
						If Cells(k, 2) <> "" Then GoTo 300 Else GoTo 400
						300 Sum = Sum + 1
						mycol1(Sum) = Cells(j, 1)
						mycol2(Sum) = Cells(k, 2)
						GoTo 900
						400 Next k
						900 Next j
						For z = 30 To 29 + Sum
						tot = tot + 1
						Cells(z, 1) = mycol1(tot)
P01	100					Cells(z, 2) = mycol2(tot)
P02	1200					Next z
U01	2000					End Sub
U02	1500
R01	400

<tbody>
</tbody>

 

[RoryA]

Welcome to the forum.

Please take a minute to read the forum rules, especially the one about cross-posting, and follow them. Thanks!

 

[oldbrewer]

if your data is in cols A and B I do not know - the macro runs normally for me...

copy your macro and paste it here in the reply box so we check for typos etc

 

[RoryA]

You're missing the declaration line for the procedure - you have an End Sub line but no starting Sub... line.

 

[oldbrewer]

Rory - I made the assumption that the OP new a few macro basics....oops