maybe:
Sub submit2()
If Application.CountBlank(Range("B3:K3")) = 0 Then
  With Rows(3)
    .Copy
    Workbooks.Open Filename:="N:\REPORTING\Liam\MTA Log.xlsm"
    Rows(3).Insert
    ActiveWorkbook.Close True
    Application.CutCopyMode = False
    .ClearContents
  End With
  Range("B3").Select
Else
  MsgBox "blanks in B3:K3"
End If
End Sub