求大神们帮助。

用宏如何实现标绿的地方公式自动向下填充，行数是不确定的。
下边这个公式只能填充第一个sheet，第二个sheet还是按照第一个sheet A列个数来填充，有没有大神帮忙修改下
Sub 宏5()
'
' 宏5 宏
'
' Sheets("诺西").Select
myrow = Range("A65536").End(xlUp).Row
Range("D1:E1").Select
Selection.AutoFill Destination:=Range("D1:E" & myrow), Type:=xlFillDefault
Range("A1:A" & myrow).Select
Range("K1").Select
Selection.AutoFill Destination:=Range("K1:K" & myrow), Type:=xlFillDefault
Range("A1:A" & myrow).Select
Range("M1:U1").Select
Selection.AutoFill Destination:=Range("M1:U" & myrow), Type:=xlFillDefault
Range("A1:A" & myrow).Select
Sheets("irfm").Select
myrow = Range("B65536").End(xlUp).Row
Range("G1:N1").Select
Selection.AutoFill Destination:=Range("G1:N1" & myrow), Type:=xlFillDefault
Range("B1:B" & myrow).Select
end sub
上边这个公式只能填充第一个sheet，第二个sheet还是按照第一个sheet A列个数来填充，有没有大神帮忙修改下