EXCEL中，我想增加下面VBA代码功能，有能解决，我的将给100分的表示感谢

我原来的EXCEL表格行数很多，但下一行和上一行相同的地方也比较多，完全不同的只有 J列《长度》和 k列《数量重量》，只有这两列的数据每行都要填，（大多数的数据基本上都是自动生）。原来用函数公式执行以下功能，但因为行数太多，表格反应非常慢，所以想换成VBA来解决）我的数据从第三行开始，6万行结束【另外，因为百度知道可输入字数有限，一部分内容我只能用图片表达】
下面的代码完美解决了D列时间的输入【下面的第一个图片是我对D列时间要求，下面代码实现该要求】，但我的表格还需要以下功能，希望高手能帮忙解决：

我想增加的是：当K列的单元格是《空白》，《原来里面没有数据在里面》时，在K列输入数据后 A列/ B列/ C列/D列分别达到以下功能。（备注：如果k列原来有数据，只是改动，所有已经输入的数据都不因为k列数据变化而变化，【本代码只有在k列为空白，输入数据才有效】）。
1）、① C列《客户》（从C3开始），K列每输入一个数据，如果这一行的C列中没有数据《为空白时》，同行的《C列》默认等于上一个单元格（如C4=C3 / c5=c4 / c8=c7等）；②如果C列单元格《已经有数据》，（如C3/C6/C7等），在K列输入数据时，原有的数据不变 ③在整个代码中，在k列输入数据，【c列输入的《客户名称》最重要，要优先，比《D列时间》代码也要先，因为，我下面的许多代码都要用到要C列的数据】。
2） A列《ID号》（从A3开始），K列每输入一个数据，A列能自动输入一个ID号（从1开始，6万结束）

3）B列《订单编码》，当在k列输入数据，是根据C列《客户》的变化生成新的编码《如C6不等于C5，则B5生成了新的编码，如C7不等于C6，则B7生成了新的编码，C5=C4=C3所以B5=B4=B3》

5）D列《订单日期》当在k列输入数据，是根据C列《客户》的变化生成新的时间
下面的代码
Private Sub Worksheet_Change(ByVal Target As Range) H = Target.Row: L = Target.Column Hs = 3: He = Cells(60000, 3).End(xlUp).Row Lb = 11 Columns("D:D").NumberFormatLocal = "yyyy/m/dh:mm;@" If Hs <= H And H <= He And L = Lb Then If H = Hs Then IfRange("D" & H) = "" Then Range("D" & H) = Now End If Else IfRange("D" & H) = "" Then If Range("C" & H) = Range("C" & H - 1) Then Range("D" & H) = Range("D" & H - 1) Else Range("D" & H) = Now End If End If End If End IfEnd Sub