Dim TargetRow As Variant
TargetRow = InputBox("Insert row # where data should be inserted. This should take the format XX:XX (e.g. 90:90 for row 90)", "All Industries Row", "XX:XX")

wbThis = ThisWorkbook.Name
Windows(wbThis).Activate
    Rows(TargetRow).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove

Windows("otherworksheet.xlsx").Activate
    Range("A119:J119").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(wbThis).Activate
    Range(TargetRow).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False