[算表] 請問關於EXCEL的VBA移行如何更快執行有碼

[ilf0121 (思想的崛起)]

軟體:EXCEL

各位大神們好 新春快樂!!
請問各位大神
以下這段VBA該怎麼讓他執行起來更快
因為是用錄製寫的  每次執行起來都會有點卡卡的感覺
要跑一兩秒才能執行完畢
主要功能是

把目前點選的這儲存格的這一列(比如8列)，整列複製
然後移到A欄最下面資料的下一列空白列
(比如A欄最下面的資料是100列，就是把資料貼上到101列)
然後再把原本的列(8列)整列砍掉

這樣就執行完畢
以下是目前的程式碼

Sub 移行()
'
' 移行 巨集
'
' 快速鍵: Ctrl+Shift+X
'
Dim X As Integer
Dim LastRow As Integer

   X = ActiveCell.Row    'ActiveCell.Row 作用中的儲存格的列號
    Rows(X).Select       '選擇X行
    Selection.Copy       '複製X行
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row   '抓A欄最後一行的行數
    LastRow = LastRow + 1
    Rows(LastRow).Select '選擇最後一行+1
    ActiveSheet.Paste    '貼上
    Rows(X).Select
    Application.CutCopyMode = False '清空剪貼板
    Selection.Delete Shift:=xlUp    '刪除選擇的X行
End Sub



感激大神協助  謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.169.114.219 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1675495816.A.F46.html
→ suaveness: 類似這樣?  https://pastebin.com/S8Nxtkdn
推 amethystboy: ScreenUpdating
→ ilf0121: 謝謝大神們  這兩種方式都可以執行!!!
→ ilf0121: 請問大大 原本是抓A欄的最後一行的行數，若要要抓全部欄
→ ilf0121: 現在要改抓 A欄或D欄 的最下面一行的資料的下一行
→ ilf0121: 請問這樣要怎麼抓呢? 謝謝大大
→ rafaiero: rows.count,1的1改4就D了、+1改+2就是最後一行次行的下
→ rafaiero: 一行...
→ ilf0121: 謝謝R大神！