vba to drag down formula/data from last filled row to next row

[Deepas]

hello, i am a complete novice to macros.

Request you help on the below.

i need to go the last filled cell in column A
select the data in that entire row (currently in my sheet it is "A1312:AP1312")
and drag it it down to the next row

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub deepas()
   Range("A" & Rows.Count).End(xlUp).EntireRow.Resize(2).FillDown
End Sub

 

[Deepas]

Range("A" & Rows.Count).End(xlUp).EntireRow.Resize(2).FillDown End Sub

thankyou so much, this was of great help. also i need to repeat this for 27 other tabs (there are 30 tabs in total). is there a macro for that as well

 

[Fluff]

How about

Sub deepas()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Select Case Ws.Name
         Case "Sheet1", "Sheet2", "Sheet3"
         Case Else
            Ws.Range("A" & Rows.Count).End(xlUp).EntireRow.Resize(2).FillDown
      End Select
   Next Ws
End Sub

Change the 3 sheet names to the sheets that should not be touched.

 

[Deepas]

How about

Sub deepas()
   Dim Ws As Worksheet
  
   For Each Ws In Worksheets
      Select Case Ws.Name
         Case "Sheet1", "Sheet2", "Sheet3"
         Case Else
            Ws.Range("A" & Rows.Count).End(xlUp).EntireRow.Resize(2).FillDown
      End Select
   Next Ws
End Sub

Change the 3 sheet names to the sheets that should not be touched.

Thankyou so much. this was of great help

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Deepas]

Hi & welcome to MrExcel.
How about

Sub deepas()
   Range("A" & Rows.Count).End(xlUp).EntireRow.Resize(2).FillDown
End Sub

what if i just want to drag down the formula in the last cell of column A to cell A 5000

 

[Fluff]

Try

Sub deepas()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Select Case Ws.Name
         Case "Sheet1", "Sheet2", "Sheet3"
         Case Else
            With Ws.Range("A" & Rows.Count).End(xlUp)
               .EntireRow.Resize(5000 - .Row + 1).FillDown
            End With
      End Select
   Next Ws
End Sub

 

[Deepas]

Dim Ws As Worksheet For Each Ws In Worksheets Select Case Ws.Name Case "Sheet1", "Sheet2", "Sheet3" Case Else With Ws.Range("A" & Rows.Count).End(xlUp) .EntireRow.Resize(5000 - .Row + 1).FillDown End With End Select Next Ws

no i only want to drag down the data in column A and not the entire row.

 

[Fluff]

In that case get rid of the .EntireRow