Hi Strud,
maybe something like
![]()
Dim s As String s = Sheets("Parent Input").Range("C7").Value '"UK" or "DE" If Sheets("Child Input").Range("E:F").EntireColumn.Hidden = False Then Sheets("Helper cells").Range("11:11").Copy Sheets("Output (" & s & ")").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial _ Paste:=xlPasteValues Application.CutCopyMode = False End If
Bookmarks