Data record in loop (repeated in cycle)

[sanpatil108]

Condition 1 - start from prev 1 to prev 7 column and copy data from i Column (ABC) & j Column (XYZ)
Condition 2 - after prev 7 column repeat Record data start from prev1 column
Condition 3 - Highlight the current recording "Cell" using color


VBA Code ...

Public oiTimer As Boolean
Sub DataCopy()
Application.ScreenUpdating = False
\\Do Until Application.ScreenUpdating = False

Sheets("Analysis").Range("I2:I4").Copy
Sheets("Analysis").Range("H2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Set a1 = Sheets("Analysis").Range("H2:H4")
Set a2 = Sheets("Analysis").Range("B2:B4").End(xlToRight).Offset(0, -1)
a1.Copy a2

Sheets("Analysis").Range("J2:J4").Copy
Sheets("Analysis").Range("K2").PasteSpecial xlPasteValues
Application.CutCopyMode = False

Set a3 = Sheets("Analysis").Range("K2:K4")
Set a4 = Sheets("Analysis").Range("Q2:Q4").End(xlToLeft).Offset(0, 1)
a3.Copy a4

\\Application.CutCopyMode = False
Application.ScreenUpdating = True

\\Loop

End Sub

Sub startTimer()
If (oiTimer = False) Then
oiTimer = True
RunTimer
End If
End Sub

Sub stopTimer()
oiTimer = False
End Sub

Sub RunTimer()
If (oiTimer = True) Then
itime = ThisWorkbook.Worksheets("Analysis").Range("F7").Value
Application.OnTime Now + TimeSerial(0, 0, itime), "runTimer"
DataCopy
End If
End Sub

Sub ClearData()
Sheets("Analysis").Range("B2:H4").ClearContents
Sheets("Analysis").Range("K2:Q4").ClearContents
End Sub