VBA code for changes in cell and delete cell value

[cooleomter]

The COde works if i only delete one by one.. But if i Highlight many cells and delete all at once.. it debugs
Need help please,... here is my code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nextRow As Long
Set historyWks = ActiveSheet

'Check if the changed cells are in the specified range
If Not Intersect(Target, Me.Range("C8:C3000")) Is Nothing Then
' to check cell if empty. or i delete
If Target.Cells.Value = " " Or IsEmpty(Target) Then Exit Sub 'Check if target cell is empty

With historyWks
nextRow = .Cells(.Rows.Count, "C").End(xlUp).Offset(0, 1).Row
End With

With historyWks
With .Cells(nextRow, "G")
.Value = Date
.NumberFormat = "mm/dd/yyyy"
End With
With .Cells(nextRow, "F")
.Value = Time
.NumberFormat = "h:mm:ss AM/PM"
End With
With .Cells(nextRow, "D")
.Value = Range("F1").Value 'pACKING OPERATOR
End With
With .Cells(nextRow, "H")
.Value = Range("D2").Value ' MODEL
End With
With .Cells(nextRow, "I")
.Value = Range("F2").Value ' wEIGHING OPERATOR
End With

End With

End If


End Sub

 

[cooleomter]

You are welcome.

test4.xlsm
	A	B	C	D	E	F	G	H	I	J
1			Category:		Packing Operator		Shipment Plan Qty:
2			Model		Weighing Operator		Finished Good Qty.:
3			Shipment Date:		Shipment Freight		Good Weight
4			Start Serial		End Serial		NG Weight
5			Minimum		Maximum		Lacking
6							Excess
7	Box No. BIG	Box No. SMALL	Weight	Packing Operator	Serial Number	Time	Date	Model	Weighing Operator	Remarks
8
9
10
11
12
13
14
15
16
MASTER COPY

Cell Formulas
Range	Formula
D5	D5	=IF((D2=""),"",INDEX(Validation!I2:I8,MATCH('MASTER COPY'!D2,Validation!F2:F8,0)))
F5	F5	=IF((D2=""),"",INDEX(Validation!J2:J8,MATCH('MASTER COPY'!D2,Validation!F2:F8,0)))
H1	H1	=IF(D4="","",(F4-D4+1))
H2	H2	=COUNT(C8:C100384)
H3	H3	=H2-H4
H4	H4	=((COUNTIFS(C8:C100000,"<"&D5)+(COUNTIFS(C8:C100000,">"&F5))))
H5	H5	=((COUNTIFS(C8:C10001,"<"&D5)))
H6	H6	=((COUNTIFS(L8:L10003,">"&O5)))
A8:A16	A8	=IFERROR(IFS($D$2="HDROP-14",INDEX(Serial!$E$2:$E$25426,MATCH('MASTER COPY'!E8,Serial!$A$2:$A$25426,0)),$D$2="IND-B",INDEX(Serial!$D$2:$D$25426,MATCH('MASTER COPY'!E8,Serial!$A$2:$A$25426,0)),OR($D$2="HDROP-FK1",$D$2="JD2100",$D$2="JD2000WH",$D$2="JD2000BK"),INDEX(Serial!$B$2:$B$25426,MATCH('MASTER COPY'!E8,Serial!$A$2:$A$25426,0)),$D$2="ZR-02",INDEX(Serial!$F$2:$F$25426,MATCH('MASTER COPY'!E8,Serial!$A$2:$A$25426,0))),"")
B8:B16	B8	=IFERROR(IFS(OR($D$2="HDROP-14",$D$2="ZR-02"),INDEX(Serial!$C$2:$C$25426,MATCH('MASTER COPY'!E8,Serial!$A$2:$A$25426,0))),"")
E7	E7	=IF(OR(D1="Option",D1="Harness"),"Item Count","Serial Number")
E8	E8	=IF(C8="","",D4)
E9:E16	E9	=IF(C9="","",E8+1)

Named Ranges
Name	Refers To	Cells
ACCList	=Validation!$F$6:$F$8	D5, F5
OPList	=Validation!$F$3:$F$5	D5, F5
SIBList	=Validation!$F$2	D5, F5

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
C8:C1048576	Cell Value	<$D$5	text	NO
C8:C1048576	Cell Value	>$F$5	text	NO

Cells with Data Validation
Cell	Allow	Criteria
D1	List	=ManuList
D2	List	=INDIRECT(VLOOKUP($D$1,ManuLookUp,2,0) &"List")
D3	Any value
F1:F2	List	=OFFSET(Validation!$A$2:$A$999267,0,0,COUNTA(Validation!$A$2:$A$198)-0,1)
F3	List	=Validation!$C$10:$C$14