VBA - pasting data in the last cell of a column

[tanyaleblanc]

Hi, I'm trying to paste data from cell L1 (the word "Rental") to the last cell in column G, but it's pasting in the wrong cell, it should paste in cell G40 as that is the last blank cell, but it's pasting in cell G6988 and then I want it to copy the word "Rental" to the last cell that has data in column E

lrownew = Cells(Rows.Count, "E").End(xlUp).Row + 1    Range("E" & lrownew).PasteSpecial Paste:=xlPasteValues
    lastrow = Cells(Rows.Count, "G").End(xlUp).Row
    Range("L1").Select
    Selection.Copy
    lrownew = Cells(Rows.Count, "G").End(xlUp).Row + 1
    Range("G" & lRow).PasteSpecial Paste:=xlPasteValues
    Range("g:g" & lRow).SpecialCells(xlCellTypeVisible) = "Rental"

 

[Fluff]

How about

range("G"&rows.Count).End(xlUp).Offset(1).Value="Rental"

 

[tanyaleblanc]

I've changed the code to the above and it now pastes the word "Rental" in cell G40 like it's supposed to but how do I copy it to the last row using column E

Sub Admin_Fee()Dim fd As Office.FileDialog
Dim lRow As Long
Dim wb1 As Workbook, wb2 As Workbook
Dim sh As Worksheet
Dim lrownew As Long
If AutoFilterMode = True And FilterMode = True Then ActiveSheet.ShowAllData


    
Set fd = Application.FileDialog(msoFileDialogFilePicker)


    Windows("Admin Fee1.xls").Activate
    Sheets("Active").Select
    lastrow = Cells(Rows.Count, "G").End(xlUp).Row
    Range("L1").Select
    Selection.Copy
    lrownew = Cells(Rows.Count, "G").End(xlUp).Row + 1
    Range("G" & Rows.Count).End(xlUp).Offset(1).Value = "Rental"
End Sub

 

[Fluff]

How about

Range(Range("G" & Rows.Count).End(xlUp).Offset(1), Range("E" & Rows.Count).End(xlUp).Offset(, 2)).Value = "Rental"

 

[tanyaleblanc]

works perfect, thank you,

 

[Fluff]

You're welcome & thanks for the feedback