mi macro de excel esta sobreescribendo los datos nuevos que se ingresan y los ingresa en las celdas que ya tenian datos anteriores, he estado investigando y me gustaria saber si podrian ayudarme, aca les muestro el codigo del formulario de excel para añadir nuevos datos:
Private Sub CommandButton1_Click()
desproteger_hoja
Application.ScreenUpdating = False
Sheets("Reporte Comercial").Select
Range("A4").Select
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
ActiveCell.Offset(1, 0).Select
Loop
linea_fin = ActiveCell.Row
Range("B" & linea_fin) = UCase(Lb_Year)
Range("C" & linea_fin) = Lb_Month
Range("E" & linea_fin) = Cb_Pais
Range("F" & linea_fin) = Cb_Puerto
Range("H" & linea_fin) = Txt_Barco
Range("I" & linea_fin) = Txt_Owner
Range("AZ" & linea_fin) = Lb_Id
Range("J" & linea_fin) = Cb_Tipo_Carga
Lb_Conteo = WorksheetFunction.CountIf(Range("BB:BB"), Lb_Id)
If Val(Lb_Conteo) < 10 Then
Lb_Conteo = "0" & Lb_Conteo
End If
Range("A" & linea_fin) = Lb_Id & Lb_Conteo
ActiveSheet.ListObjects("Tabla14").Resize Range("$A$4:$BB$4729" & linea_fin)
'Borrando valores en formulario
Lb_Id = ""
Lb_Year = ""
Lb_Month = ""
Lb_Fecha_Corta = ""
Cb_Pais = ""
Cb_Puerto = ""
Txt_Barco = ""
Txt_Owner = ""
Txt_Fecha = ""
Cb_Tipo_Carga = ""
Lb_Conteo = 1
Txt_Fecha.SetFocus
proteger_hoja
Application.ScreenUpdating = True
End Sub
Este codigo fue escrito antes que yo entrara, es un archivo que tiene 5 años, el anterior encargado no dejo nada explicado o en que consiste el codigo, De antemano gracias.