''put value without select sheet
Sheets("Report").Cells(1, "A").Value = "Hi"

'put value without active cell
Cells(1, "A").Value = "Hi"

''Cell Select
Range("F11").Select
Range("C4:G13").Select

'all cells select till where data available
ActiveSheet.UsedRange.Cells.Select

'Cell Select all
Cells.Select

'Blank Cell select in Column A
Range("A1").Select
Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
Loop Until IsEmpty(ActiveCell) = True

'select last Left  cell
Selection.End(xlToLeft).Select

Range("A1048576").End(xlUp).Select

' Place the curor on the last cell in Column E
Cells(Cells.Rows.Count, "E").End(xlUp).Select

'Place the cursor on the cell below the last entry in column A
Cells(Rows.Count, 1).End(xlUp)(2).Select

Cells(Cells.Rows.Count, "B").End(xlUp).Select
Selection.EntireRow.Select

Cells(Cells.Rows.Count, "B").End(xlUp).EntireRow.Select

Cells.SpecialCells(xlLastCell).EntireRow.Select

'row of first and last cell in a selection (or range i.e. rng)
FirstRow = Selection(1).Row
LastRow = Selection(Selection.Count).Row

 
Dim lastcell As Range
Set lastcell = Cells.SpecialCells(xlLastCell)
lastcell.EntireRow.Select

Sub UsedRowsCount()
    'number of rows in another sheet
    Dim mySheet As Worksheet
    Set mySheet = Sheets("Data")
    MsgBox "Used Rows = " & mySheet.UsedRange.Rows.Count
End Sub


'Select last blank cell of a column
Cells(Cells.Rows.Count, "C").End(xlUp).Select