[Help me pleaseeee] i have a question with VBA for Excel

[bienda]

i'm sorry because this is VBA for CAD forum, but i don't know orther forum for excel like here.

so i have a problem with VBA for Excel, help me pleaseeee

 

SetPrintArea1.xls

 

i have a excel file like above and i want to set printares with vba for sheet1 but column is not change and row can be change and reference sheet2: round(B1/B2,0)

 

i have use code: "ActiveSheet.PageSetup.PrintArea = [A1:K1].Resize(Sheet2.[B1]).Address"

 

i want to change B1 into round(B1/B2,0)

What do i must to?