EXCEL VBA 時間反序

一要有三張工作表
一張 IN : 資料輸入
二張 : 正向(fxd)
三張 : 反向(newfxd)
程式如下
Sub Macro1()
Sheets("fx-d").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Range("A3").Select

Sheets("newfx-d").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("A3").Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Sheets("IN").Select
Range("D6").Select
End Sub