vba 관련 _급한 회사 서류 입니다 도와주세요

[권정철]

많은 데이타를 처리할려고 매크로 작성하고 vba 를 작성해서

실행 시켰는데 오류및 실행 이 안됩니다. 도와주세요

도와주세요.

도와주세요.

아래 서류에서 각각  ESC 및에 행을 2행씩 삽입할려고 하는데 데이타가 많아서 VBA 사용했는데 안되는 이유를 모르겟읍니다

		명   칭	규   격	단위	단가
					재료비
	당초
	변경	1.해룡터널 전기공사::1-1.수변전 설비공사
	ESC	1.해룡터널 전기공사::1-1.수변전 설비공사
지59753067005	당초	폴리에틸렌 전선관(지중)	CD-P 36mm	M	#REF!
지59753067005	변경	폴리에틸렌 전선관(지중)	CD-P 36mm	M	#REF!
지59753067005	ESC	폴리에틸렌 전선관(지중)	CD-P 36mm	M	0
59753077007	당초	파상형 폴리에틸렌 전선관	125mm	M	#REF!
59753077007	변경	파상형 폴리에틸렌 전선관	125mm	M	#REF!
59753077007	ESC	파상형 폴리에틸렌 전선관	125mm	M	0
포59753067007-1	당초	전선관 포설	50Φ*2열	M	#REF!
포59753067007-1	변경	전선관 포설	50Φ*2열	M	#REF!
포59753067007-1	ESC	전선관 포설	50Φ*2열	M
포59753067014	당초	전선관 포설	125Φ*2열	M	#REF!
포59753067014	변경	전선관 포설	125Φ*2열	M	#REF!
포59753067014	ESC	전선관 포설	125Φ*2열	M
61450927228	당초	접지용비닐절연전선(F-GV)	70㎟	M	#REF!
61450927228	변경	접지용비닐절연전선(F-GV)	70㎟	M	#REF!
61450927228	ESC	접지용비닐절연전선(F-GV)	70㎟	M	0
61450287916	당초	폴리에틸렌 난연케이블	0.6/1kv F-CV 1Cx300㎟	M	#REF!
61450287916	변경	폴리에틸렌 난연케이블	0.6/1kv F-CV 1Cx300㎟	M	#REF!
61450287916	ESC	폴리에틸렌 난연케이블	0.6/1kv F-CV 1Cx300㎟	M	0
61450287913	당초	폴리에틸렌 난연케이블	0.6/1kv F-CV 1Cx150㎟	M	#REF!
61450287913	변경	폴리에틸렌 난연케이블	0.6/1kv F-CV 1Cx150㎟	M	#REF!
61450287913	ESC	폴리에틸렌 난연케이블	0.6/1kv F-CV 1Cx150㎟	M	0

이런 데이타에서 이런 VBA 작성했는데

Sub 행삽입()
'
' 행삽입 Macro
'
' 바로 가기 키: Ctrl+w
'
Dim lasterRow As Long
Dim r As Long

lastRow = Cells(Row.Count, 2).End(3).Row

For r = lastRow To 3 Step -1

If Cells(r, 2) = "esc" Then
Cells(r + 1, 2).Resize(2).EntireRow.Insert
End If
Next r

End Sub
이렇게 작성햇는데 실행이 안되고 오류가 나데요

가려쳐 주세요 부탁입니다.

[Mr_Candy]

안녕하세요? 파일을 메일로 보내보세요. dajeoung@hanmail.net 입니다.