Sub СчётПожалуйста()
    Const ИмяЛистаСчёт = "Счёт"

    Dim sh As Worksheet
    On Error Resume Next
    Set sh = Sheets(ИмяЛистаСчёт)
    On Error GoTo 0
    
    If sh Is Nothing Then
        MsgBox "Не найден лист " & ИмяЛистаСчёт, vbCritical
        Exit Sub
    Else
        If ActiveSheet.Name <> ИмяЛистаСчёт Then
            With ActiveCell.EntireRow
                sh.Range("A10").Value = .Range("A1").Value
                sh.Range("B10").Value = .Range("D1").Value
            End With
            sh.Select
        End If
    End If
End Sub