Looping through column B , Finding Value In Column A & Copy Paste Specific Number Of Times

[benntw]

I have a report that I built in Primavera grouping by a code in column A. Column B has values from 7 categories for every code. My code value starts in column A Row 3 and my 7 categories start in column B Row 3. I have multiple columns to the right, but column B is my solid range of data. What I want to do is loop through column B for excel to know the last line of data. I need to run down column A and copy the code and paste it 6 more times underneath it all the way down until the last range of data in column B. Here is an example of my columns data.

Column A Row 3 Column B Row 3

Team 1 Budgeted Units
Actual Units
Remaining Early Units
Cum Budgeted Units
Cum Actual Units
Cum Remaining Early Units
Cum At Completion Units
Team 2 Budgeted Units
Actual Units
Remaining Early Units
Cum Budgeted Units
Cum Actual Units
Cum Remaining Early Units
Cum At Completion Units

This continues the same grouping until my last team in the grouping. I can manually fill out the 6 empty cells between the Teams, but a VBA code to do this would be much quicker. All my data to the right of column B is a horizontal date range. A pivot table would not be the right choice for this. Hopefully someone can help me out with this. Hope this made sense. Thank you.

 

[NoSparks]

perhaps like this

Sub testing()
    Dim i As Long
With Sheets("Sheet1")
    For i = 3 To .Cells(Rows.Count, "B").End(xlUp).Row Step 7
        .Range("A" & i).Resize(7) = .Range("A" & i)
    Next i
End With
End Sub

 

[benntw]

Thank you very much. It worked perfect.