Creating PDF from Excel cell range through Access VBA -

i have access database updates , excel document (both saved on desktop).

when excel document updated latest information, , relevant filters applied, need create either pdf or jpg of cells in specific range. attempting first of 2 below, creating pdf of league table.

historically, manually highlight cells, copy , paste "paint" save down jpg file , use file upload needed viewed...i attempting automate image of range of cells in either pdf or jpg when run below, nothing saves down (i need file save desktop file name of in cell a1)

'create pdfs of league & last match

'find last row in worksheets going bottom of column b , working lnglastleaguerow = xlapp.worksheets("league table").range("a65536").end(xlup).row  xlapp.worksheets("league table").range("a1:i" & lnglastleaguerow).exportasfixedformat type:=xltypepdf, _     filename:="c:\users\me\desktop\" & (xlapp.worksheets("league table").range("a1").value) & ".pdf", quality:= _     xlqualitystandard, includedocproperties:=true, ignoreprintareas:=false, openafterpublish:=true