Sub locnhom()
On Error Resume Next
Dim t19b4198432a9c9fa876d594586433ccb, ba616620893fa35910376875d0f00bb06(), b4d607b01414dc45413f6549f157a7477 As String, cd5fdb3ceeadb965519c2e7249308b5be As Long, mdf0e10311932bbc6b9d6bfe064c9edde As Long, qf4b1a1466baeff4c729cb8c6eb59f137 As Long, v273507d906ddb295582bd93ca721413f As Long
b4d607b01414dc45413f6549f157a7477 = Range("j3").Value
t19b4198432a9c9fa876d594586433ccb = Range("E4:F14").Value
qf4b1a1466baeff4c729cb8c6eb59f137 = UBound(t19b4198432a9c9fa876d594586433ccb)
ReDim ba616620893fa35910376875d0f00bb06(1 To qf4b1a1466baeff4c729cb8c6eb59f137, 1 To 2)
For cd5fdb3ceeadb965519c2e7249308b5be = 1 To qf4b1a1466baeff4c729cb8c6eb59f137
If t19b4198432a9c9fa876d594586433ccb(cd5fdb3ceeadb965519c2e7249308b5be, 2) = b4d607b01414dc45413f6549f157a7477 Then
mdf0e10311932bbc6b9d6bfe064c9edde = mdf0e10311932bbc6b9d6bfe064c9edde + 1
ba616620893fa35910376875d0f00bb06(mdf0e10311932bbc6b9d6bfe064c9edde, 1) = t19b4198432a9c9fa876d594586433ccb(cd5fdb3ceeadb965519c2e7249308b5be, 1)
End If
Next cd5fdb3ceeadb965519c2e7249308b5be
Range("J4:J14").ClearContents
Range("J4").Resize(mdf0e10311932bbc6b9d6bfe064c9edde, 1) = ba616620893fa35910376875d0f00bb06
End Sub