Selecting Group of Rows with spaces in between

[VBAEnjoi]

Hi,

I have a s/sheet which has multiple blocks of Rows.
I used Lastrow to get the last row and the Startrow to get the last block of rows.
However, I am unable to select two other blocks above the last block.
There is a single blank row in between these rows.

Lastrow = .Cells(.Rows.Count, "D").End(xlUp).Row
Startrow = .Cells(.Rows.Count, "D").End(xlUp).End(xlUp).Row

 

[VBAEnjoi]

Maybe something like

Sub AddFormula()
   Dim Rng As Range
   For Each Rng In Range("D:D").SpecialCells(xlConstants).Areas
      Rng.Offset(, 3).FormulaR1C1 = "=vlookup(rc[-3],c10:c11,2,0)"
   Next Rng
End Sub

Looks complex. Will try and revert.

Thanks for putting this together.

 

[Rick Rothstein]

Maybe something like

Sub AddFormula()
   Dim Rng As Range
   For Each Rng In Range("D:D").SpecialCells(xlConstants).Areas
      Rng.Offset(, 3).FormulaR1C1 = "=vlookup(rc[-3],c10:c11,2,0)"
   Next Rng
End Sub

Remember my penchant for one-liners? Well, then if your code above does what the OP wants, then I think this should also...

[table="width: 500"]
[tr]
	[td]Sub AddFormula()
  Intersect(Columns("D").SpecialCells(xlConstants).EntireRow, Columns("G")).Formula = "=VLOOKUP(D3,$J:$K,2,0)"
End Sub[/td]
[/tr]
[/table]