Sub CF_Macro()

CF_Macro Macro

Sub SpitValues()

Dim wsInput As Worksheet
Set wsInput = Worksheets("Repline Input")

Dim wsSummary As Worksheet
Set wsSummary = Worksheets("Summary")

With wsInput

.Range("G11").Resize(10, 1).Value = "FALSE"

Dim rCell As Range
For Each rCell In .Range("G11").Resize(10, 1)

    rCell.Value = "TRUE"

    DoEvents
    'Application.Wait (Now + TimeValue("0:00:05"))
    wsSummary.Range("b13:b16").Copy
    wsSummary.Range("z1").Select
    Selection.End(xlToLeft).Offset(ColumnOffset:=1).PasteSpecial xlPasteValues
    rCell.Value = "FALSE"

Next

End With

1   TRUE
2   FALSE
3   FALSE
4   FALSE
1   TRUE
2   FALSE
3   FALSE
4   FALSE
1   TRUE
2   FALSE