Se puede modificar un código vba para que sea compatible con hoja de calculo de google

Dante

Anteriormente me ayudo con el siguiente código, se puede modificar para que funcione en una hoja de calculo de google

Sub guardar()
'por.dam
Set h3 = Sheets("Captura ")
Set h5 = Sheets("Base de datos ")
h3.Select
If h3.Range("K1") <> "" Then
nuevonum = h5.Range("A" & Rows.Count).End(xlUp) + 1
If nuevonum <> h3.Range("K1") Then
If MsgBox("El número  es diferente a la base de datos, el nuevo número debe ser: " & nuevonum & vbCr & _
"Es correcto", vbQuestion + vbYesNo, "CAPTURA") = vbYes Then
h3.Range("K1") = h5.Range("A" & Rows.Count).End(xlUp) + 1
Else
MsgBox "Verifique el número para continuar", vbExclamation, "CAPTURA"
Exit Sub
End If
Else
h3.Range("K1") = h5.Range("A" & Rows.Count).End(xlUp) + 1
End If
cont = 1
If h3.Range("E7") = "" Then MsgBox "Falta: " & "Fecha", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E8") = "" Then MsgBox "Falta: " & "Nombre del prospecto", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E9") = "" Then MsgBox "Falta: " & "Telefono", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E10") = "" Then MsgBox "Falta: " & "e-mail", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E11") = "" Then MsgBox "Falta: " & "Dirección", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E12") = "" Then MsgBox "Falta: " & "Donde vio el anuncio", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E13") = "" Then MsgBox "Falta: " & "ID", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E14") = "" Then MsgBox "Falta: " & "Asesor en guardia", vbExclamation, "CAPTURA": cont = 0
If h3.Range("E15") = "" Then MsgBox "Falta: " & "Asesor asignado", vbExclamation, "CAPTURA": cont = 0

If cont = 0 Then
If MsgBox("Faltan datos por capturar, desea que se guarde", vbQuestion + vbYesNo, "CAPTURA") = vbNo Then
End If

Exit Sub
End If

uf = h5.Range("A" & Rows.Count).End(xlUp).Row + 1
h5.Range("A" & uf) = h3.Range("k1") 'Numero 
h5.Range("B" & uf) = h3.Range("E7") 'F
h5.Range("C" & uf) = h3.Range("E8") 'N
h5.Range("D" & uf) = h3.Range("E9") 'T
h5.Range("E" & uf) = h3.Range("E10") 'e-
h5.Range("F" & uf) = h3.Range("E11") 'D
h5.Range("G" & uf) = h3.Range("E12") 'd
h5.Range("H" & uf) = h3.Range("E13") 'I
h5.Range("I" & uf) = h3.Range("E14") 'A
h5.Range("J" & uf) = h3.Range("E15") 'A

MsgBox "Captura Guardada", vbinformatio, "CAPTURA"
h3.Range("K1") = h5.Range("A" & Rows.Count).End(xlUp) + 1
Range("E7:G15").Select
Selection.ClearContents
Range("E7:G7").Select
End If

End Sub