If I could get some help with this macro it would be greatly appreciated. I've been working on this project for work for a while. As you can see in my code what i'm trying to do is to work down column "A" checking to see if there is a value in every fourth cell. If there is a value in in each cell then it will copy and paste some coresponding cells in column "B". The problem I am having is that my code will only go through once and then it ends as if there were no more values entered, although there are more entered.
Sub PrintScorecardsClick()
Dim LastLine As Integer, i As Integer
Dim fCell As Range
Dim bCell As Range
Dim hCell As Range
Sheets("Scorecard").Activate
Set fCell = Range("L10:L13")
Set bCell = Range("L27:L30")
Set hCell = Range("L19")