エクセルマクロ 合計まるめ

Sub 工種合計まるめ()
Dim b As Long
Dim i As Long
Dim k As Long

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" Then
Cells(i, 4) = WorksheetFunction.Sum(Range("F" & i, "J" & i))
b = Range("B" & i).Value
k = -(Log(b) / Log(10))
Cells(i, 3) = WorksheetFunction.Round(Range("D" & i), k)
End If
Next

End Sub
Sub データ抽出()
Dim drng As Range
Dim i As String
ActiveSheet.AutoFilterMode = False
Set drng = Range("N3").CurrentRegion
i = Range("Q2").Value

drng.AutoFilter field:=1, Criteria1:=i & "*"


End Sub
Sub データ挿入()
Dim i As Long
i = Range("R2").Value

Rows(i).Insert
Selection.Copy Range("A" & i)
End Sub