6의 배수값 행을 삭제하는 코딩인데 일부만 됩니다.

@원조백수 님 For i = iendrow To 2 Step -1

이렇게 수정해서 했는데 안되어서 칼럼을 추가해서

Sub 육의배수삭제()
'//3PL 직배품목삭제

Dim endrow As Long
Dim RngCount As Integer
Dim i As Integer

endrow = Sheets("판매현황").Cells(Rows.Count, "A").End(xlUp).Row

'//6의 배수 찾기
Sheets("판매현황").Range("F:F").Insert
Range("F2").FormulaR1C1 = "=IF(MOD(RC[-1],6)=0,""OK"",""X"")"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F" & endrow), Type:=xlFillValues

'// 벌집껍데기필터- 공존컴퍼니, 헬로미트
Range("A2").Select
Selection.AutoFilter

FilterPrd = Array("p3001-1a") '//벌집
ActiveSheet.Range("$A$2:$G$" & endrow).AutoFilter Field:=3, Criteria1:=FilterPrd, Operator:=xlFilterValues
ActiveSheet.Range("$A$2:$G$" & endrow).AutoFilter Field:=2, Criteria1:="=*주식회사 공존컴퍼니*", Operator:=xlOr, Criteria2:="=*헬로미트*"
ActiveSheet.Range("$A$2:$G$" & endrow).AutoFilter Field:=6, Criteria1:="=*OK*", Operator:=xlFilterValues '//6의 배수
'//보이는 셀값이 없다면,
RngCount = Sheets("판매현황").Application.WorksheetFunction.Subtotal(103, Range("E2:E" & endrow)) '//수량합계
If RngCount = 0 Then
Else

Rows("3" & ":" & endrow).Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
End If

Sheets("판매현황").Range("F:F").Delete

End Sub

이렇게 해결했습니다~^^;;

좋은 답변 감사드립니다.