Looping through a range. Copy if equals value. Runs but no results - excel

Question

I have tried using Offset to copy and paste plus about a million other things. This used to have about ten ElseIf's that I commented out to try and simplify to help me figure out. The only other thing I could think of is that I am having a brain cramp on this so any help would be appreciated!
Sub areax()
Dim Rng1 As Range, Rng2 As Range, Rng3 As Range, Rng4 As Range
Dim Lr As Long
For Lr = Cells(Cells.Rows.Count, "B").End(xlUp).Row To 6 Step -1
If Cells(Lr, "B") <> 0 Then
If Cells(Lr, "B") = 6 Then
Set Rng1 = Range("E" & ActiveCell.Row & ":I" & ActiveCell.Row)
Set Rng2 = Range("E" & Rows.Count).End(xlUp).Offset(1)
Rng1.COPY Rng2
Application.CutCopyMode = False
Else
If Cells(Lr, "B") = 12 Then
Set Rng1 = Range("E" & ActiveCell.Row & ":J" & ActiveCell.Row)
Set Rng2 = Range("K" & ActiveCell.Row & ":P" & ActiveCell.Row)
Set Rng4 = Range("E" & Rows.Count).End(xlUp).Offset(1)
Rng1.COPY Rng4
Rng2.COPY Rng4
Application.CutCopyMode = False
End If
End If
End If
Next Lr
End Sub

Answer 1

OK sam axe - got to sign-out for this evening but try the code below.
From my last query comment to you, it assumes that col B has the same number of rows as the original data grid (9) and that we are only using columns E:J and K:P in the rebuilt grid. If these are not the case then you can make some appropriate mods.
Also the following assumptions apply, again modify to suit your context:
Assumes grid data is in same sheet as col B
Assumes this sheet is called "Data"
Assumes rebuilt grid data starts at original data grid start col
I have used a few more variables so that you have got flexibility to easily change your output/layout etc. I have also made two 'replacements' in your code. 1. replaced IF THEN construct with SELECT CASE construct which will allow you to add other conditions and 2. replaced your test for col B value being greater than 0 with a test for it being a numeric value. It shouldn't then crash if a string accidentally creeps in.
#Steffen Sylvest Neilson has graciously acknowledged the Dim comment and has helpfully provided a link for you to perhaps explore.
May not be perfect for your needs yet, due to my lack of understanding, but as stated earlier, should be a good starter for you.
PS An explanation why you did not appear to be copying anything could be that ActiveCell may be selected outside your data. ActiveCell doesn't follow your loop counter.
Sub areax()
Dim Rng1 As Range, Rng2 As Range
Dim lBrow As Long, lGridRow As Long, c As Long
Dim sdRow As Long, sdCol As Long
Dim gridsRow As Long, gridsCol As Long
'data start r/c
sdRow = 6
sdCol = 2
'grid start r/c
gridsRow = 6
gridsCol = 5
With Sheets("Data")
lBrow = .Cells(Rows.Count, sdCol).End(xlUp).Row
'for each row in col B
For c = sdRow To lBrow
If IsNumeric(.Cells(c, "B")) Then
'set next available row at bottom of grid
lGridRow = .Cells(Rows.Count, gridsCol).End(xlUp).Row + 1
'test col B cell value
Select Case .Cells(c, sdCol)
Case Is = 6
Set Rng1 = .Range(.Cells(c, "E"), .Cells(c, "J"))
Rng1.Copy Destination:=.Cells(lGridRow, gridsCol)
Application.CutCopyMode = False
Case Is = 12
Set Rng1 = .Range(.Cells(c, "E"), .Cells(c, "J"))
Set Rng2 = .Range(.Cells(c, "K"), .Cells(c, "P"))
Rng1.Copy Destination:=.Cells(lGridRow, gridsCol)
'add 1 to last grid row because of double-copy
lGridRow = lGridRow + 1
Rng2.Copy Destination:=.Cells(lGridRow, gridsCol)
End Select
End If
Next c
Application.CutCopyMode = False
End With
End Sub