Excel - Mejorar macro para sobre escribir información.

Sub Graba()

Dim intFila As Integer

Range("B195:I195").Select

Selection.Copy

Workbooks.Open Filename:= _

"C:\Users\SantiQuirante\Desktop\comercial seguimiento\seguimiento 2019.xlsx"

Sheets("Hoja1").Select

Range("B10").Select

intFila = 2

While Range("a" & CStr(intFila)).Value <> 0

intFila = intFila + 1

Wend

Range("a" & CStr(intFila)).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

ActiveWorkbook.Save

ActiveWindow.Close

End Sub.

Sub Graba()

    Dim intFila As Integer, Codigo As String

    Codigo = Range("B195")

    Range("B195:I195").Select

    Selection.Copy

    Workbooks.Open Filename:= "C:\Users\SantiQuirante\Desktop\comercial seguimiento\seguimiento 2019.xlsx"

    Sheets("Hoja1").Select

    Range("B10").Select

    intFila = 2

    While Range("A" & CStr(intFila)).Value <> 0 AND Range("B" & CStr(intFila)).Value <> Codigo

        intFila = intFila + 1

    Wend

    Range("A" & CStr(intFila)).Select

    Selection.PasteSpecial Paste:=xlValues,

                           Operation:=xlNone, _

                           SkipBlanks:= False, _

                           Transpose:=False

    ActiveWorkbook.Save

    ActiveWindow.Close

End Sub.

Sub Graba()

    Dim intFila As Integer, Codigo As String

    Codigo = Range("B195")

    Range("B195:I195").Select

    Selection.Copy

    Workbooks.Open Filename:= "C:\Users\SantiQuirante\Desktop\comercial seguimiento\seguimiento 2019.xlsx"

    Sheets("Hoja1").Select

    Range("B10").Select

    intFila = 2

    While Range("A" & CStr(intFila)).Value <> 0 AND Range("A" & CStr(intFila)).Value <> Codigo

        intFila = intFila + 1

    Wend

    Range("A" & CStr(intFila)).Select

    Selection.PasteSpecial Paste:=xlValues,

                           Operation:=xlNone, _

                           SkipBlanks:= False, _

                           Transpose:=False

    ActiveWorkbook.Save

    ActiveWindow.Close

End Sub.