VBA Locking in Formulas based on two conditions

[aworfolk]

I am trying to lock a set of cells values using VBA but only if the last cell in the block is a formula and a date. So in the file i attached it would be cell BH4 and the cells that need to be lock would be all of Rows 4,5,6,7,8. But i need it to find amoung all cell in the BH coloumn. The actual file goes all the way to BH1978. Thank you in advace. Also the sheet I attached has had some informtion deleted so that personal infromation would be removed.

Sub test2()
Do
Dim X As Integer
Dim I As Integer
Dim V As Integer
For X = 1228 To 1977
 X = X + 7
 Next
For I = 1233 To 1982
 I = I + 7
 Next
For V = 1299 To 2048
 V = V + 7
 Next
Dim Locationone As String
Locatonone = "BH" & X
Dim Locationtwo As String
Locationtwo = "A" & X & ":" & "BH" & I
Dim Locationthree As String
Locationthree = "A" & V
If Range(Locationone).Value = IsBlank Then
Else
Range(Locationtwo).Value = Range(Locationtwo).Value
Range(Locationthree).Value = Range(Locationthree).Value
End If
Loop
End Sub

[arlu1201]

Is this solved?

If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit.

[aworfolk]

I didnt solve it persce i just took the basic formula and coped it about 200 times changing which line it looks at

IF Range("BH423") = IS Blank Then
Else
Range("A424","BH428").Value = Range("A424","BH428").Value
Range("A423").Value = Range("A423").Value
End If

[arlu1201]

No, this wont be an efficient method. There are better ways of doing this.

By lock i know you mean to paste special values. Can you explain which cells and how do we arrive at these cells which need to be locked?

[aworfolk]

In the BH Coloumn starting at BH4 then cells there is a cell that populates a date when that populates then this macro will lock the values in for the cell in rows 4-8 and Cell A3. Then this contenuies every 7 cells. So It would then need to look at BH11 and lock Rows 11-15 and Cell A10.