VBA code, insert code end of column

plshelpimpoor

New Member
Joined
Jul 14, 2019
Messages
4
HTML:
<a href="http://tinypic.com?ref=ega2xg" target="_blank"><img src="http://i64.tinypic.com/ega2xg.png" border="0" alt="Image and video hosting by TinyPic"></a>
Code:
Sub CopyToAnotherSheet2()'copy and transpose
Dim NextRow As Long
Dim cpRng As Range


Application.CutCopyMode = False
Application.ScreenUpdating = False


    Set cpRng = ActiveSheet.Range("c31:ab31")
    NextRow = Sheets("weekly").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("Summary").Range("p4:p29").Copy
        Sheets("weekly").Cells(NextRow, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True


Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub
Above is the code. How do I get the code to run in column C (and below the previous week data) instead of at the very bottom?
 

Some videos you may like

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

Trevor_S

Well-known Member
Joined
Oct 17, 2015
Messages
610
Office Version
2016
Platform
Windows
Try changing the following lines as shown:
Code:
    NextRow = Sheets("weekly").Cells(Rows.Count - 1, 3).End(xlDown).Row + 1
    Sheets("Summary").Range("p4:p29").Copy
        Sheets("weekly").Cells(NextRow, 3).PasteSpecial Paste:=xlPasteValues, Transpose:=True
 

Watch MrExcel Video

Forum statistics

Threads
1,102,867
Messages
5,489,367
Members
407,686
Latest member
Chuck1960

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...
Top