with selection
  .offset(,.offset(,-1))=.value
end with

Set x = Selection
MsgBox x.Rows.Count & " " & x.Columns.Count

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Target.Offset(, 1).Select
    Application.SendKeys "{F2}"
End If
If Target.Column = 2 Then
    Target.Offset(, -1).End(xlDown).End(xlUp).Offset(1).Select
End If
End Sub

On Error Resume Next
If Sheets("лист").Index = 0 Then Sheets.Add().Name = "лист"

   ActiveSheet.Range("$A$1:$L$63").AutoFilter Field:=10, Criteria1:="<>0", _
        Operator:=xlAnd

   ActiveSheet.Range("$A$1:$L$63").AutoFilter Field:=10, Criteria1:="<>0,00", _
        Operator:=xlAnd

Private Sub txbTransferConfirm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If txbTransferConfirm.Text & Chr(KeyAscii) = "999" Then
        txbTransferConfirm.Value = ""
        txbTransferConfirm.SetFocus
        usfmSystemTransferAlert.Hide
End If

End Sub

 Private Sub txbLSSEnter_Change()
    If txbLSSEnter.Text = "999" Then
        txbLSSEnter.Value = ""
        usfmSystemTransferAlert.Show
    End If
End Sub