Sub mCopyData()
Dim mRng As Range
    Set mRng = Range([B9], [D9]) ' cчитаем, что _
                   Range([a4], [e4]) - это строка _
                                 Вашего листа - шаблона
    If Application.CountA(mRng) = 0 Then
        MsgBox "Empty!!!"
        Exit Sub
            Else
 ' Ниже, вместо "Sheet2", поставте название листа, _
                                 куда копируете
                mRng.Copy Sheets("123"). _
                        Cells(Rows.Count, 1) _
                                .End(xlUp).Offset(1, 0)
    End If
End Sub