Sub cells_example()
Range("J10").Cells(1, 1).Value = "Usman"
Range("J10").Cells(1, 4).Value = "Usman"
Range("J10").Cells(5, 3).Value = "Usman"
Range("J10").Cells(8, 1).Value = "Usman"
Range("J10").Cells(3, -2).Value = "Usman"
Range("J10").Cells(1, -4).Value = "Usman"
Range("J10").Cells(-3, -3).Value = "Usman"
Range("J10").Cells(-5, 1).Value = "Usman"
Range("J10").Cells(-2, 3).Value = "Usman"
End Sub