VBA Error in - Autofill

[jawaharprm]

Hi All,

i have done a copy and paste macro file, iam getting error while autofill in column H
the query is will update blank cell at H5 as "NR" it need to auto fill till last row pls help on same. i enclosed the excel file and macro code for your reference.
iam getting this error
run time error '1004'
method 'range' of object'_global' failed

vba code
>>> as many times <<<
>>> use code - tags <<<

Option Explicit
Sub Main_Button1_Click()
Dim x As Workbook
Dim y As Workbook
Dim pat As Variant
Dim lr1, lr2 As Long

'x workbook is download file
'y workbook is macro file

With x.Sheets("Mass Product add")
    lr1 = .Range("DV" & .Rows.Count).End(xlUp).Row
End With

With y.Sheets("MARA")
    lr2 = .Range("A" & .Rows.Count).End(xlUp).Row
End With

If y.Sheets("MARA").Range("H5").Value = "" Then
With y.Sheets("Mara")
    lr2 = Range("A5" & Rows.Count).End(xlUp).Row
    .Range("H5").SpecialCells(xlBlanks).Value = "NR"
    Range("H5").AutoFill Destination:=Range("H5:H" & lr2)
End With
End If

Thanks
Jawahar

 

[p45cal]

replace:

With y.Sheets("MARA")
  lr2 = .Range("A" & .Rows.Count).End(xlUp).Row
End With

If y.Sheets("MARA").Range("H5").Value = "" Then
  With y.Sheets("Mara")
    lr2 = Range("A5" & Rows.Count).End(xlUp).Row
    .Range("H5").SpecialCells(xlBlanks).Value = "NR"
    Range("H5").AutoFill Destination:=Range("H5:H" & lr2)
  End With
End If

with just:

With y.Sheets("MARA")
  If .Range("H5").Value = "" Then
    lr2 = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("H5:H" & lr2).Value = "NR"
  End If
End With

 

[jawaharprm]

Hi Sir,

i checked the 2 code its working fine thank you V Much....