Cómo agregar a un macro instrucciones para que sobrescriba datos existentes, mostrando mensaje si desea modificar los datos

Requiero que el macro que tengo realice un proceso de sobrescribir datos existentes comparando las claves y reescribiendo (presidente, secretario, tesorero, concesionario), se los comparto. Posteriormente agrego el que no puedo adecuar a este macro.

Sub Claves()
'
' Claves Macro
'
' Acceso directo: Ctrl+Mayús+I
'
Range("B16:B20").Select
Selection.Copy
Sheets("Octs").Select
Range("A28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A24:E28").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Octs").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Octs").Sort.SortFields.Add2 Key:=Range("A24:A28") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Octs").Sort
.SetRange Range("A24:E28")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Encontré estas instrucciones pero no logro adecuarlo al existente.

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Worksheets("Users").Select
If TextBox1 <> Empty Then
    If Application.WorksheetFunction.CountIf(Range("A:A"), TextBox1) Then
        If MsgBox("El Usuario ya existe desea sobre-escribir los datos?", _
        vbYesNo + vbQuestion, "INFORMACION") = vbNo Then Exit Sub
        Range("A1").Select
        Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        almacenar
        limpiar
        MsgBox "los cambios se ha guardado correctamente", vbInformation, " CEMEX España - SES"
        Exit Sub
    End If
End If
Dim LastRow As Long
ActiveWorkbook.Sheets("Users").Select
LastRow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(LastRow, 1).Select
almacenar
limpiar
contar
MsgBox "datos guardados", vbInformation, " CEMEX España - SES"
End Sub

Y los codigos para almacenar, limpiar y contar son los identic