AutoFill code creates error

I am trying to copy a cell in row 'A' down to a variable number of rows. The code generates the error message: "AutoFill method of range class failed". y and z are declared Integer's. The applicable portion of the code is below. Basically, find 'z', do a couple of copy pastes, then find 'y', then do the autofill. It's the last line that causes the problem.

All help is appreciated. Thanks, Cliff

 
z = Workbooks("master.xlsm").Worksheets("sheet1").Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByRows).Row + 4
Workbooks("master.xlsm").Worksheets("sheet1").Range("A" & z) = b & "  " & Worksheets(c).Name
            'Puts target files name in Column A and row found above = z.
Workbooks("master.xlsm").Worksheets("sheet1").Range("B" & z).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False   'Puts used range that was copied to the right of file name.
 y = Workbooks("master.xlsm").Worksheets("sheet1").Cells.Find(What:="*", _
    SearchDirection:=xlPrevious, _
    SearchOrder:=xlByRows).Row
Workbooks("master.xlsm").Worksheets("sheet1").Range("A" & z).AutoFill Destination:=Range("A" & z & ":A" & y), Type:=xlFillDefault

Alvaro:

Thanks for responding. The code you suggested created a compile error saying 'expected end of statement'. It there something wrong with the syntax?

bump for solution

I think Alvaro was missing a .Copy:

Workbooks("master.xlsm").Worksheets("sheet1").Cells(z, 1).Copy Destination:=Range(Cells(z, 1), Cells(y, 1))

In your original code, what is the value of y when you get the error? It looks like it should work...

Thanks wallyeye. That was it. Missing .Copy

y was like 233, but the problem was as you described above.