Duplicating Multiple Cells & Columns

[t5timesb]

I am struggling with something and maybe it is the shear number of times I have to do this. So I have output I received from 30,888 cells (lets call them "finished goods" - below my finished good is: "FW15RH20.KBSTVS.GDRB60"). Now, I need to pair each of the "finished goods with 20 different items like shown below. Each "finished goods" cell is paired with 2 other columns (0,A).

This is an example of 1 "finished goods" paired with the columns, remember, I have 30,888 of these, HOW DO I DO THIS?

FW15RH20.KBSTVS.GDRB60 <colgroup><col><col></colgroup><tbody> </tbody> <colgroup><col><col></colgroup><tbody> </tbody>	0	A
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	1	B
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	2	C
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	3	D
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	4	E
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	5	F
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	6	G
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	7	H
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	8	I
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	9	J
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	10	K
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	11	L
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	12	M
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	13	N
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	14	O
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	15	P
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	16	Q
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	17	R
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	18	S
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	19	T
FW15RH20.KBSTVS.GDRB60 <tbody> </tbody>	20	U

<tbody>
</tbody>

 

[t5timesb]

I sent you a message as it wasn't working for me.

 

[t5timesb]

The first didn't work for me. Anyone else help?

 

[Gilliam]

The first didn't work for me. Anyone else help?

Sub FinishedGoods()

    'with the sheet of imported data active... do the following Macro.
    Application.ScreenUpdating = False
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    FGRows = lastRow * 21 'if the numbers go fromm 0-20 that's 21 numbers...
    ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count) 'I'll just put everything in a new worksheet
    ActiveSheet.Name = "Finished Goods" ' named Finished Goods
    ActiveCell.FormulaR1C1 = "=INDIRECT(""Sheet1!A""&INT(ROW(R[20]C)/21))" 'this will be VERY SLOW
    Range("B1").FormulaR1C1 = "=MOD(ROW()+20,21)" 'this gets the numbers 0-20 in column B
    Range("C1").FormulaR1C1 = "=VLOOKUP(CHAR(RC[-1]+65),{""A"",""CUTOFF"";""B"",""SHAFT1"";""C"",""FERRULE"";""D"",""FERRULEFW15"";""E"",""GRIP"";""F"",""GRIP1"";""G"",""MATCHPOINT"";""H"",""CLUBHEAD"";""I"",""ASSEMBLY"";""J"",""GRINDFERRULES"";""K"",""LOFT/LIE"";""L"",""LASER"";""M"",""CLEAN"";""N"",""BAND"";""O"",""ISLABEL"";""P"",""PACK"";""Q"",""BXSET15"";""R"",""INCFREIGHT"";""S"",""DIRECTLA"";""T"",""VARIABLEOH"";""U"",""FIXEDOH""},2,TRUE)" 'this gets the letters A thru U in column C
    Range("A1:C1").AutoFill Destination:=Range("A1:C" & FGRows) 'because it's slow, I will paste over itself with just the values.
    Range("A1:C" & FGRows).Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Columns("A:A").EntireColumn.AutoFit
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub