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