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