How to copy and paste an entire row? 1

[RonQA]

I just cannot get this to work. I have tried so many different ways. Here is my latest attempt.

I want to copy - "Range("A11").EntireRow" to the last empty row on the same sheet. "objWorksheet.Range("F65536").End(xlUp).Row"


Range("A11").EntireRow.Copy r.Row

Code ==================================

Function UpdateExcel(ExcelFile)
'Update Excel Spredsheat ("F" Controls position of last Row. F = "Work Performed")
Const xlUp = &HFFFFEFBE
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open(ExcelFile)
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Activate

r = objWorksheet.Range("F65536").End(xlUp).Row
If r = 1 And objWorksheet.Range("F" & r).value = "" Then
intNewRow = r
Else

intNewRow = r + 1


End If

'Update Cells
Range("A11").EntireRow.Copy r.Row

 

[SkipVought]

want to copy - "Range("A11").EntireRow" to the last empty row on the same sheet. "objWorksheet.Range("F65536").End(xlUp).Row"

Range("A11").EntireRow.Copy objWorksheet.cells(objWorksheet.rows.count, "A").End(xlUp).offset(1)

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RonQA]

I tried the code and it copied it to the first row instead of the last empty row.

I did a copy/paste with your code so I know it isn't a typo.

Am I missing something else?

Thanks

 

[SkipVought]

I notice that you had ("F65536")

Does column F have a different last row than column A?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RonQA]

I thought I knew where you were going with that question. It still did not work.

"F" is the column that I use to make sure that is the absolute last row with data. If data is there that I want the row after it.

Range("F11").EntireRow.Copy objWorksheet.Cells(objWorksheet.Rows.Count, "F").End(xlUp).Offset(1)

Thanks

 

[SkipVought]

That will not work because it needs to paste the entire row, in column A, not in any other column

Range("F11").EntireRow.Copy objWorksheet.Cells(objWorksheet.Rows.Count, "F").End(xlUp).Offset(1)[b].end(xltoleft)[/b]

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[RonQA]

Thanks...appreciate the help.