Hsieh

Dim A As Range
With Sheets("¸ê®Æªí")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("ªí®æ")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '¹wÄý
     .PrintOut '¦C¦L
sheets("±a¥X¸ê®Æ").[B65536].end(xlup).offset(,1)=.[H13].value
    End With
Next
End With

Hsieh

¦^´_ 3# gn00487767
µ§»~
sheets("±a¥X¸ê®Æ").[B65536].end(xlup).offset(1,0)=.[H13].value

Hsieh

¦^´_ 6# gn00487767
µ{¦¡½Xµ¹§A¡A§Æ±æ§A¯à½T¹êÁA¸Ñµ{¦¡½X·N¸q
¬Û«H§Ú³o­Óµ§»~¡A¦pªG§A¦³½T¹êÁA¸Ñµ{¦¡½X¡A­n¦Û¦æ­×§ï¨Ã¤£¬O°ÝÃD