Adjust height of a Cut Row now left blank.

[mstuf]

This Macro moves a chosen Row to another workbook and pastes it , leaving a blank row in the initial workbook

Sub OpenToSold5()

   ' Keyboard Shortcut: Ctrl+Shift+W

Dim lRow As Long
Dim lCol As Long
Rows(ActiveCell.Row).Cut
Windows("AMZ-GM Sold.xlsm").Activate
lRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row 
ActiveSheet.Cells(lRow + 1, 1).Activate 
ActiveSheet.Paste

End Sub

When Completed the Initial Workbook has a Blank Row. When the macro was run the Height of the Row that was Cut is variable ( usually 60 - 120 ) depending on content. But, when completed the remaining blank row is about 8 high. I would like to have it blank at 60 but dont know how to refer to that row in my code to adjust the height of the remaining blank row.

Help to do so would be much appreciated.
Thank You

 

[Peter_SSs]

See if these additions help.

Sub OpenToSold5()

   ' Keyboard Shortcut: Ctrl+Shift+W

Dim lRow As Long
Dim lCol As Long
Dim lCurrRow As Long
Dim wActSht As Worksheet

Set wActSht = ActiveSheet
lCurrRow = ActiveCell.Row
Rows(ActiveCell.Row).Cut
Windows("AMZ-GM Sold.xlsm").Activate
lRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
ActiveSheet.Cells(lRow + 1, 1).Activate
ActiveSheet.Paste
wActSht.Rows(lCurrRow).RowHeight = 20
End Sub

 

[mstuf]

Works PERFECTLY -

I've learned so much here at this board - and its save me millions of keystrokes but I constantly realize how little I know. I love just reading threads - many are so far over my head but I do pick up ideas and have incorporated some into my spaghetti like macros.
I envy those who truly understand Excel VBA, its so amazing.

Thank You

 

[Peter_SSs]

Works PERFECTLY -

I've learned so much here at this board - and its save me millions of keystrokes but I constantly realize how little I know. I love just reading threads - many are so far over my head but I do pick up ideas and have incorporated some into my spaghetti like macros.
I envy those who truly understand Excel VBA, its so amazing.

Thank You

You're welcome.

Stick at it. Remember that we all started of knowing nothing about vba or even Excel. I'm still learning things from this forum too!