Sub Button1_Click()
Dim sonSatir As Long
Dim mesaj As String
sonSatir = Sheets("Arsiv").Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("Hesap").Range("B2:B4").Copy
    Sheets("Arsiv").Range("B" & sonSatir).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Sheets("Hesap").Range("B2:B3").Value = ""
mesaj = "Islem kaydedildi. Atanan Satir: " & sonSatir
MsgBox (mesaj)
End Sub