Copy and Paste Between Workbooks with Dynamic Ranges

[reberryjr]

I don't know why I'm struggling with this, but I am. I'm trying to paste the value of 1 cell from workbook A into the first empty cell of column B in workbook X all the way until the last cell in column Q of workbook X.

Dim mLR, sLR, aLR As Long

Set m = ThisWorkbook
Set mA = m.Sheets("ALM_Data_Upload")

mLR = mA.Range("A" & Rows.Count).End(xlUp).Row

'Opens file picker and sets the chosen file as "s" for future coding reference.
With Application.FileDialog(3)
    .AllowMultiSelect = False
    If .Show Then
        fullpath = .SelectedItems.Item(1)
        Set s = Workbooks.Open(fullpath)
    End If

    'Exits the sub if no file is chosen.
    If s Is Nothing Then Exit Sub
    
    Set sS = s.Worksheets(1)
    
    sLR = sS.Range("L" & Rows.Count).End(xlUp).Row
    
    'Copies the Step Number, Description and Expectation from the actual script and pastes it into the ALM Upload tab.
    sS.Range("A11:C11" & sLR).Copy
        mA.Range("L" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        
    aLR = sS.Range("L" & Rows.Count).End(xlUp).Row
    
    'Copies the Test Name from the actual script and pastes it into the ALM Upload tab.
    sS.Range("B1").Copy
       mA.range("B" & sLR+1  ":B" & aLR).pastespecial xlpastevalues
        'mA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues