Macro para boton

Buenas noches: cree una macro para que me ejecute un archivo que maneja facturacion, tiene un boton que da 2 opciones, si y no, con si debe ejecutar todas las ordenes impartidas, con no debe salir y no hacer nada, pero al decirle si ella ejecutas la instrucciones sin problema, paro al decirle no hace exactamente lo mismo, es decir no sale como deberia hacerlo, el codigo es el siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell2 As Range 'cantidad por precio
For Each cell In Sheets("Factura").Range("F16:F30")
If cell.Value > 0 Then
cell.Offset(0, 5) = cell.Offset(0, 4).Value * cell.Value
Else
cell.Offset(0, 4).ClearContents
End If
Next
End Sub
Private Sub CommandButton1_Click()
Ans = MsgBox(prompt:="¿Desea guardar la factura?", Buttons:=vbYesNo, Title:="TORNICALI LTDA")
If Ans = vbYes Then
End If
With Sheets("LISTA").Range("B65536").End(xlUp)
.Offset(1, 0) = Sheets("FACTURA").Range("G10") 'FOLIO
.Offset(1, 1) = Sheets("FACTURA").Range("G11") 'FECHAE
.Offset(1, 2) = Sheets("FACTURA").Range("G12") 'FECHAV
.Offset(1, 3) = Sheets("FACTURA").Range("G13") 'FORMAP
.Offset(1, 4) = Sheets("FACTURA").Range("C12") 'NIT
.Offset(1, 5) = Sheets("FACTURA").Range("C11") 'Cliente
.Offset(1, 6) = Sheets("FACTURA").Range("C31") 'VALOR
.Offset(1, 7) = Sheets("FACTURA").Range("E31") 'IVA
.Offset(1, 8) = Sheets("FACTURA").Range("C32") 'RETF
.Offset(1, 9) = Sheets("FACTURA").Range("E32") 'RETI
.Offset(1, 10) = Sheets("FACTURA").Range("G32") 'TOTAL
End With
Application.CutCopyMode = False
MsgBox "REGISTRADO", vbOKOnly, "TORNICALI LTDA"
'Borrar datos variables factura
Range("C11:C11").ClearContents
Range("B16:F30").ClearContents
Range("B35:F36").ClearContents
Range("B38:F44").ClearContents
Range("G10") = Range("G10") + 1
End Sub
En que estoy fallando?
Muchas gracias por su ayuda.
Astrid