Dim entrySheet As Worksheet

Dim dataSheet As Worksheet

Dim inputCell As Range

Dim nextRow As Long

Dim inputValue As String

Set entrySheet = ThisWorkbook.Sheets("Sheet1") ' Form sheet

Set dataSheet = ThisWorkbook.Sheets("Sheet2") ' Data sheet

Set inputCell = entrySheet.Range("B2") ' Where user enters value

inputValue = Trim(inputCell.Value)

' Check if user entered something

If inputValue = "" Then

MsgBox "Please enter a code in cell B2.", vbExclamation

Exit Sub

End If

' Find next empty row in Sheet2 Column A

nextRow = dataSheet.Cells(dataSheet.Rows.Count, 1).End(xlUp).Row + 1

If dataSheet.Cells(1, 1).Value = "" Then nextRow = 1 ' Handle if sheet is completely blank

' Paste the entry

dataSheet.Cells(nextRow, 1).Value = inputValue

' Optional: clear input

inputCell.ClearContents

MsgBox "Code '" & inputValue & "' added to data sheet!", vbInformation

End Sub

Dim ws As Worksheet

Set ws = ActiveSheet

Dim startCell As Range

Set startCell = ws.Range("B2") ' Start point for formula

Dim i As Long

Dim numRepeats As Long

numRepeats = 20 ' Number of times to paste

For i = 0 To numRepeats - 1

Dim targetRow As Long

targetRow = startCell.Row + i * 5

' Build a formula that references column A of the current row

Dim formulaText As String

formulaText = "=A" & targetRow & "+1" ' Change logic here as needed

' Place the formula using Formula2 to avoid @ symbol

ws.Cells(targetRow, startCell.Column).Formula2 = formulaText

Next i

MsgBox "Dynamic formulas inserted every 5 rows from " & startCell.Address

End Sub

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("ICSS Revenue Analysis") ' or ActiveSheet if preferred

Dim startCell As Range

Set startCell = ws.Range("B11") ' Starting cell

Dim i As Long

Dim numRepeats As Long: numRepeats = 20 ' Set how many times you want it inserted

For i = 0 To numRepeats - 1

Dim targetRow As Long

targetRow = startCell.Row + i * 5

Dim formulaText As String

formulaText = "=XLOOKUP($A" & targetRow & ",'Ad-Hoc Pivot Table'!$E$4:$E$219," & _

"XLOOKUP('ICSS Revenue Analysis '!G$10," & _

"'Ad-Hoc Pivot Table'!$F$3:$J$3,'Ad-Hoc Pivot Table'!$F$4:$J$219,0),0)"

ws.Cells(targetRow, startCell.Column).Formula2 = formulaText

Next i

MsgBox "Nested XLOOKUP inserted every 5 rows starting from " & startCell.Address

End Sub

Dim ws As Worksheet

Set ws = ActiveSheet ' Or: ThisWorkbook.Sheets("ICSS Revenue Analysis")

Dim startCell As Range

Set startCell = ws.Range("G13") ' Start here

Dim numRepeats As Long: numRepeats = 20

Dim i As Long

For i = 0 To numRepeats - 1

Dim pasteRow As Long

pasteRow = startCell.Row + i * 5

Dim lookupRow As Long

lookupRow = pasteRow - 2 ' Reference 2 rows above in column A

Dim formulaText As String

formulaText = "=XLOOKUP($A" & lookupRow & ",'Ad-Hoc Pivot Table'!$E$4:$E$219,XLOOKUP('ICSS Revenue Analysis '!G$10,'Ad-Hoc Pivot Table'!$F$3:$J$3,'Ad-Hoc Pivot Table'!$F$4:$J$219,0),0)"

On Error Resume Next

ws.Cells(pasteRow, startCell.Column).Formula2 = formulaText

If Err.Number <> 0 Then

ws.Cells(pasteRow, startCell.Column).Formula = formulaText

Err.Clear

End If

On Error GoTo 0

Next i

MsgBox "Formulas pasted in G13, G18, G23... with references to A11, A16, A21, etc."

End Sub