Calpixqui,
Te agrego el archivo, realice algunas modificaciones a tu código pero me parece que hace lo escencial que necesitas, y si no solamente bastaría con una ligera adecuación creo yo. Analiza el código y así comprenderás que hace cada instrucción y te será más fácil adecuarlo.
Sub Cargar_Asiento()
Dim iRow As Integer, strPoliza As String
iRow = Sheets("POLIZA").Range("C65536").End(xlUp).Row + 2
strPoliza = Sheets("POLIZA").Range("D16").Value
With Worksheets("POLIZA")
If .Range("H39") <> .Range("I39") Then End
.Range("C20:I39").Copy
.Range("C" & iRow).PasteSpecial Paste:=xlValues
On Error Resume Next
Range("E58:E65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.CutCopyMode = False
MsgBox "SE HA CONTABILIZADO EL ASIENTO NÚMERO " & .Range("F16").Value & " EN " & .Range("D16")
Select Case strPoliza
Case Is = "POLIZA DE DIARIO"
.Range("R8") = .Range("R8") + 1
Case Is = "POLIZA DE INGRESOS"
.Range("R9") = .Range("R9") + 1
Case Is = "POLIZA DE EGRESOS"
.Range("R10") = .Range("R10") + 1
Case Is = "POLIZA DE CHEQUE"
.Range("R11") = .Range("R11") + 1
End Select
End With
End Sub
Este archivo está oculto a usuarios invitados.
Por favor, inicie sesión o regístrese para verlo.