Does the sheet name Input in this line exist and does the range start at A3 and do all of the sheetnames from A3 down exist? You can change those to suit your needs.
SheetsArray() = WorksheetFunction.Transpose(Worksheets("Input").Range("A3", _ 
    Worksheets("Input").Range("A3").End(xlDown)))